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ABSTRACT 


1 

The  computerized  Quick- Re acting  General  War  Gaming  System  (QUICK)  will 
accept  Input  data,  automatically  generate  global  strategic  nuclear  war 
I plans,  provide  output  summaries,  and  produce  Input  tapes  to  simulator 
subsystems  external  to  QUICK.  QUICK  has  been  progranmed  In  FORTRAN  for 
I use  on  the  CCTC  HIS  6000  computer  system. 

( The  QUICK  Program  Maintenance  Manual  consists  of  four  volumes:  Volume  I, 

Data  Management  Subsystem;  Volume  II,  Weapon/Target  Identification  Sub- 
I system;  Volume  III,  Weapon  Allocation  Subsystem;  Volume  IV,  Sortie  Gen- 
eration Subsystem.  The  Program  Maintenance  Manual  complements  the  other 
QUICK  Computer  System  Manuals  to  facilitate  maintenance  of  the  war  gaming 
system.  This  volume.  Volume  IV  Is  In  two  parts  providing  the  programmer/ 
analyst  with  a technical  description  of  the  purpose,  functions,  general 
procedures,  and  programalng  techniques  applicable  to  the  programs  and 
subroutines  of  the  Sortie  Generation  subsystem.  The  associated  program 
listings  which  are  dynamic  and  voluminous  are  not  contained  herein. 

However,  the  program  listings  may  be  obtained  by  arrangement  with  the 
CCTC  QUICK  Project  Officer.  Companion  documents  are: 

a.  USERS  MANUAL 

Computer  System  Maaiial  CSM  UM  9-77,  Volume  I 

Computer  System  Mammal  CSM  UM  9-77,  Volume  II 

Computer  System  Mammal  CSM  UM  9-74,  Volume  III 

Computer  System  Manual  CSM  UM  9-74,  Volume  IV 

Provides  detailed  Instructions  for  applications  of  the  system. 

b.  TECHNICAL  MEMORANDUM 
Technical  Memorandum  TM  153-77 

Provides  a nontechnical  description  of  the  system  for  senior 
management  personnel. 


SECTION  1.  GENERAL 
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I 1.1  PurpoBC 

i This  volume  of  the  QUICK  Program  Maintenance  Manual  describes  the  pro- 

' grams  which  are  part  of  the  QUICK  Sortie  Generation  Subsystem.  The  In- 

fomatlon  contained  herein  Is  presented  on  a program-by-program  basis, 
complemented  with  discussions  on  computer  programnlng  maintenance  on  a 
subject-by-subject  basis.  The  program-by-program  discussions  are  struc- 
tured so  that  a maintenance  programmer  can  understand  the  program  func- 
tions and  programnlng  techniques.  The  computer  subjects  are  structured 
to  Inform  the  maintenance  programner  of  overall  system  programming 
techniques  and  conventions. 

1.2  General  Description 

Hie  Sortie  Generation  subsystem  operates  using  the  output  from  the  Weapon 
Allocation  subsystem,  and  produces  detailed  bomber  and  missile  (delivery 
vehicle  and  weapon)  sortie  specifications.  Thus,  It  accepts  a near- 
optimal  weapon  allocation,  and  from  this  as  well  as  consideration  of 
delivery  vehicle  characteristics  and  other  factors,  generates  a detailed 
plan  of  attack  for  one  opposing  side  In  a hypothetical  general  war. 

I The  subsystem  consists  of  programs  FOOTPRNT,  POSTALOC,  PLANOUT,  and  PLOTIT, 
as  shown  In  figure  1.  Figure  2 shows  the  relationship  of  the  Sortie 
Generation  subsystem  to  other  QUICK  subsystems  In  terms  of  procedural 
and  Information  flow. 

In  addition  to  the  plan  generation  requirements,  per  se,  the  output  of 
this  subsystem  is  utilized  alternatively  by: 


a.  Damage  Assessment  systems  external  to  QUICK  which  utilize 
weapon/ target  strike  data  (DGZ  tapes)  as  required 

b.  General  War  simulation  models  external  to  QUICK  (e.g.,  NEMO 
and  ESP)  which  utilize  relevant  strike  data  as  required  (DGZ, 
A/B  tapes  and  TABLTAPE). 

As  shown  In  figure  3,  the  Sortie  Generation  subsystem  Is  Initiated  when 
a spill  tape  from  program  ALOCOUT  (Weapon  Allocation  subsystem)  Is 
received  as  Input  for  processing  by  program  FOOTPRNT.*  Program  FOOTPRNT 


*FOOTPRNT  Is  used  If  the  plan  Includes  MIRV  system.  The  ALOCGRP  file  Is 
then  used  in  POSTALOC  In  place  of  the  TMPALOC  file. 
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. '!aJor  Subsystems  of  the  QUICK  System 


figure  1 


reads  the  strike  data  from  TMPALOC  file.  Information  for  bomber  groups 
and  for  missile  groups  without  a MIRV  capability  Is  copied  directly  to 
the  ALOCGRP  file,  while  the  data  for  the  missiles  with  MIRV  payloads 
are  processed  to  create  detailed  reentry  vehicle-target  point  assign- 
ments which  satisfy  the  various  constraints.  These  detailed  assignments 
are  then  also  written  onto  the  ALOC£RP  file. 

POSTALOC  then  reads  ALOCTAR  one  weapon  group  at  a time  to  develop  specific 
specific  bomber  and  missile  sorties.  The  missile  launch  events  prepared 
by  POSTALOC  are  output  to  the  STRKFILE,  The  bomber  sorties  are  prepared 
one  corridor  at  a time  for  each  group  and  output  to  the  STRKFILE. 


I The  sortie  plans  at  this  point  are  not  fully  detailed.  Program  PLANOUT 
therefore  adds  the  required  data,  e.g.,  timing  Information,  and  creates 
two  output  tape  files.  The  plan  tape  PLAMTAPE  contains  detailed  mission 
plans  In  a form  suitable  for  review  or  use  In  program  PLOTIT  and 
I EVALALOC.  In  addition,  A/B  and  strike  tapes  are  prepared  for  use  In 
subsystems  external  to  QUICK. 

Program  PLOTIT  uses  the  PLANTAPE  tape  generated  from  a QUICK  data  base 
to  produce  rectilinear  plots  of  bomber  or  tanker  sorties.  Plots  are 
produced  for  PIC-1  and  PIC-2  maps,  as  well  as,  on  the  scales:  50  x 40 
inches,  20  x 20  inches,  or  10  x 10  Inches.  For  plbts  other  than  PIC-1 
and  PIC-2  maps,  the  program  will  automatically  choose  the  most  desirable 
origin  for  the  plots  and  will  draw  axes  and  table  them  accordingly.  Up 
to  10  sorties  may  be  plotted  on  one  graph  (or  200  events).  The  option 
Is  available  to  plot  all  sorties  on  the  PLANTAPE  or  to  plot  only 
sorties  specified  on  Input  cards. 
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SECTION  2.  PROGRAM  FOOTPRNT 


2. 1 Purpose 

The  purpose  of  program  FOOTPRNT  is  to  divide  the  set  of  targets  assigned 
to  a MIRV  group  into  subsets,  each  of  which  is  assigned  to  one  booster 
in  the  group.  This  division  is  constrained  by  the  limitations  of  the 
MIRV  systems  so  that  the  acceptable  booster  assignments  lie  within  a 
geographic  pattern  known  as  a footprint.  The  program  is  divided  into 
two  sections,  the  selection  section  and  the  assignment  section. 

The  selection  section  interrogates  the  entire  input  target  list  and  forms 
a definable  subset  of  the  targets  that  potentially  may  form  a footprint. 
The  selection  process  logically  collects  targets  that  are  geographically 
located  within  a maximum  footprint  contour. 

Given  a collection  of  targets  from  the  selection  section,  the  assignment 
section  applies  dynamic  programming  techniques  to  the  selected  targets 
and  attempts  to  form  a footprint  within  the  fuel  constraints  of  the  MIRV 
system. 

This  program  receives  the  TMPALOC  file  from  program  ALOCOUT  and  prepares 
the  ALOCGRF  file.  This  latter  file  contains  the  weapon-target  allocation 
ordered  by  weapon  groups.  Program  FOOTPRNT  processes  only  chose  groups 
with  a MIRV  capability.  The  target  assignments  to  those  groups  are  di- 
vided into  subassignments,  each  of  which  is  a feasible  MIRV  booster 
assignment. 

I The  user  input  footprint  assignment  parameters  define  Che  nature  of  fea- 
sible footprints.  These  parameters  define  Che  fuel  used  in  delivering  a 
series  of  reentry  vehicles  and  decoys  in  a specific  geographic  pattern. 
The  required  user-input  parameters  are  a set  of  coefficients  to  equations 
used  to  model  the  physical  MIRV  systems. 
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There  are  three  basic  sources  of  input  to  program  FOOTPRNT : the  TMPALOC 
file,  the  BASFILE  file,  and  the  user-input  parameter  cards.  The  TMPALOC 
file  is  produced  by  program  ALOCOUT.  This  file  contains  the  assignment 
of  weapons  to  targets,  ordered  by  group  and  corridor.  That  is,  all 
targets  assigned  to  weapons  from  the  same  group  are  placed  together  on 
the  TMPALOC  file.  Within  each  group,  the  targets  assigned  to  the  same 
corridor  are  also  placed  together.  Common  /STRKSUM/  on  this  file 
describes  the  ordering  of  corridors  and  strikes  for  each  group.  For 
missile  groups,  only  corridor  0 is  used,  so  this  latter  ordering  by 
corridor  has  no  effect.  Program  FOOTPRNT  processes  only  those  missile 
groups  with  a MIRV  capability.  Therefore,  all  information  on  the 
TMPALOC  file  which  does  not  deal  with  MIRV  weapons  is  merely  copied 
verbatim  to  the  ALOCGRP  file.  For  MIRV  weapons,  FOOTPRNT  reads  from  the 
TMPALOC  file  the  information  contained  in  common  blocks  /STRKSUM/  and 
/C3/  as  output  by  ALOCOUT.  These  data  are  transferred  to  comnon  blocks 
/STRKSUM/  and  /RAIDATA/  in  program  FOOTPRNT.  This  information  defines 
the  possible  targets  which  can  be  assigned  to  the  weapons  in  each  MIRV 
group.  Program  FOOTPRNT  performs  the  assignment  of  targets  to  individual 
boosters  and  outputs  the  information  on  ALOCGRP  file  in  a form  such  that 
program  POSTALOC  can  prepare  the  basic  sorties  for  each  MIRV  missile 
booster. 

The  data  retrieved  from  the  BASFILE  include:  plan  size  information 
(/MASTER/),  file  information  (/FILES/),  weapon  group  information  (from 
blocks  /PAYLOAD/,  /WPNTYPE/,  /WPNGRP/  on  BASFILE),  and  excess  weapon 
assignment  information  (from  /EXCESS/  on  BASFILE). 

The  user-input  parameters  define  the  footprint  constraint  definition 
variables. 


2.3  Output  Files 

Program  FOOTPRNT  produces  the  ALOCGRP  file.  (This  file  is  written  using 
the  QUICK  filehandler.  The  description  of  those  routines  describes  the 
format  of  the  physical  makeup  of  this  file.)  The  file  is  output  to  the 
disk  unit  for  use  by  program  POSTALOC.  If  there  are  no  MIRV  weapons  in 
the  plan,  program  FOOTPRNT  copies  the  TMPALOC  file  onto  the  ALOCGRP 
file.  If  there  are  MIRV  weapons  in  the  plan,  the  information  for  those 
groups  without  MIRV  weapons  is  copied  verbatim  onto  the  ALOCGRP  file. 
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The  only  other  data  file  required  by  program  FOOTPRNT  is  the  BASFILE. 
The  program  reads  from  this  file: 

a.  Plan  size  information  (/MASTER/) 

b.  Logical  file  units  (/FILES/) 

c.  Weapon  group  information  (/WPNGRPX/  in  FOOTPRNT;  /PAYLOAD/, 
/WPNTYPE/,  /WPNGRP/  on  BASFILE) 

1 


The  program  operates  on  a group-by-group  basis.  Each  group  is  considered 
independently  of  all  other  groups.  Hence,  the  discussion  of  all  sub- 
roytines  except  the  main  program  will  consider  only  the  operations  required 
for  the  current  group.  For  non-MIRV  weapon  groups,  the  TMPALOC  data  are 
copied  onto  ALOCGRP.  For  MIRV  groups,  further  processing  is  required. 

The  program  consists  of  two  sections,  the  selection  section  and  the 
assignment  section.  The  selection  section  collects  targets  that  poten- 
tially may  form  a footprint.  The  assignment  section  determines  if  from 
the  list  of  potential  targets,  a footprint  can  be  formed.  If  so,  neces- 
sary bookkeeping  reflects  that  fact  and  a new  target  collection  processed. 
Figure  4 displays  a functional  diagram  of  FOOTPRNT. 

The  card  input  data  for  each  module  axe  discussed  in  detail  in  the  sub- 
routine section  (subroutine  TABLINPT).  These  data  contain  information 
on  fuel  loads,  maximum  ranges,  and  fuel  consumption  rates. 


In  essence,  the  operation  of  this  program  is  a reordering  of  a list.  The 
input  is  an  unordered  list  of  strikes  assigned  to  the  group.  The  required 
processing  is  to  subset  and  reorder  this  list  so  that  each  sublist  Is  a 
feasible  booster  assignment.  Since  much  of  the  processing  involves  lists 
of  various  kinds,  it  is  useful  here  to  describe  some  of  the  basic  lists 
that  are  involved  in  processing  (input,  RAIDATA). 

The  first  list  is  the  Input  data,  contained  In  common  /RAIDATA/,  and  common 
/GRFDATA/.  The  data  consist  of  several  lists,  each  containing  one  element  for 
each  target  assigned  to  the  group.  The  lists  contain  index  number 
(INDEXNO),  target  latitude  (TGTLAT) , target  longitude  (TGTLONG) , relative 
damage  value  (RVAL) , offset  latitude  (DLAT) , offset  longitude  (DLONG) , 
fixed  assignment  indicator  (LXLLFIX) , target  designator  code  (DESIG),  target 
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Figure  Block  Diagram  of  Program  FOOTPRNT 
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Cask/ subtask  code  (TASK),  target  country  location  code  (CNTRYLOC) , 
target  flag  code  (FLAG),  salvo  number  (ISAL),  and  height  of  burst  (LXIHOB). 
Most  of  these  data  are  not  needed  after  Che  early  calculations,  so  the 
j data  are  written  out  onto  a scratch  file. 

I 

I The  geographic  data  are  then  converted  to  polar  coordinates  centered  on  the 

> group  centroid  with  axis  passing  through  the  North  Pole.  The  range  and 

t launch  azimuth  from  centroid  to  each  target  is  computed  and  stored.  The 

! data  are  then  reordered  according  to  increasing  value  of  launch  azimuth. 

|!  (The  sequence  array  required  for  this  ordering  is  also  written  on  the 

I I scratch  tape.)  The  reordered  targets  are  Chen  processed. 


r 


I The  details  of  the  processing  of  elements  Is  contained  In  subsequent 
parts  of  this  section.  Figure  5 shows  the  hierarchy  and  function  of 
the  major  subroutines  of  this  program. 

2.5  Common  Block  Definition 

This  program  references  external  common  blocks  /MASTER/  and  /TAPES/  from 
the  BASFILE.  In  addition,  certain  Information  for  common  block  /WPNGRPX/ 
is  read  from  the  BASFILE  blocks  /PAYLOAD/,  /WPNGRP/,  and  /WPNTYPE/. 

I Table  3 defines  the  variables  in  each  common  block. 

Conmon  blocks  ITP,  TWORD,  MYIDENT,  NOPRIOT , IFTPRNT,  FILABEL,  and 
MYLABEL  are  FILEHANDLER  common  blocks  and  fully  described  in  Program 
Maintenance  Manual,  Volume  I,  Data  Assembly  Subsystem. 
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Assignment  Testing 
PATHFINDER 


Figure  5.  Hierarchy  of  Program  FOOTPRNT  Subroutine  Execution 
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BLOCK 


CSAVE 


CSYS4 


KARP  II 


Table  3.  Program  FOCirPRNT  Common  Blocks 
(Part  1 of  7) 


VARIABLE  OR  ARRAY 


SMA(5) 


SMI (5) 


CONTROL  NV 

NPASS 


FACT (16) 


CSTAT  CSTAT(7,4,2) 


LBOOST(2) 


A0(16) 

Al(16) 

A2(16) 

BO 

Bl 

B2 


RANCEB(2) 

BRADD(2) 


CR2 

CRl 

CRO 

CRDEN 


UD2 

UDl 

UDO 

LDSYS4 


nSQUARE  CD2 

un2 


RADIUS 

PIDIV2 

DE(nT''’AD 


DESCRIPTION 


Length  of  the  semimajor  axis  for  each  of 
the  five  footprinting  ellipses 
Length  of  the  semlmlnor  axis  for  each  of 
the  five  footprinting  ellipses 


Maximum  testing  angle  for  a target  for 
inclusion  in  a footprint 


Number  of  boosters  In  the  group 
Processing  pass  number 


The  fuel  consumption  rates  for  the  par- 
ticular first  target  being  tested 


The  values  in  common  STATS  for  each  In- 
ternal pass  and  azimuth  sweep 
The  last  booster  assigned  for  the  first 
two  internal  passes 


Fuel  consumption  parameters 


Fuel  load  parameters 


Basic  and  azimuth  dependent  range  coeffi- 
cients for  positive  and  negative  launch 
axlmuths 


Downrange-crossrange  ratio  parameters 


Distance  scaling  factor  for  the  down- 
range-cn  ssrange  ratio 


Downrange-uprange  rat lo  parameters 


Length  of  the  CSYS4  common  block 


Square  of  the  cross  to  down  ratio 
Square  of  the  up  to  down  ratio 


Radius  of  the  earth  (nautical  miles) 

Pi/2 

Conversion  factor  for  degrees  to  radians 
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Table  3.  (Part  2 of  7) 


BLOCK 

EDO 


FILES 


VARIABLE  OR  ARRAY 
EDD(25,25) 


MAXIN 

RFIRST 


TGTFILE(2)^ 

BASFILE(2)^ 

MSLTIME(2)^ 

ALOCrAR(2)^ 

TMPALOC(2)^ 

ALOCGRP(2)^ 

STRKFIL(2) 

PLANT  APE** 


FOOT  DAT  A GAS 

RX(2) 


RAX(2) 


TOSSCl(2,16) 

TOSSC2(2,16) 

TEONE(16) 

TETWD(16) 

TDENOM(16) 

RBASIC(2) 

RADD(2) 

EONE 


ETWO 

DENOM 


CONE (2) 

CTWO(2) 

UEl 

UE2 

UCl(2) 

UC2(2) 

UDEN 


LLNGDAT 


DESCRIPTION 


The  cost  matrix  for  targets  passed  to 
PATHFIND 

The  number  of  targets  In  the  cost  matrix 
The  range  to  the  first  target 


Target  data  file 
Data  base  Information  file 
Fixed  missile  timing  file 
Weapon  allocation  by  targets  file 
Temporary  allocation  file 
Allocation  by  group  file 
Strike  file 
Detailed  plans  tape 


Fuel  available  for  footprinting 

Range  extension  coefficient  (positive  and 

negative  azimuths) 

Azimuth  dependent  range  extension  coeffi- 
cient 

Fuel  consumption  parameters  (for  sign  of 
azimuth  and  number  of  RVs  still  on  board) 


Fuel  consumption  exponents 


Distance  scaling  factor 
Basic  and  azimuth  dependent  range  coeffi- 
cients for  positive  and  negative  azimuths 


Downrange-crossrange  ratio  exponents 


Distance  scaling  factor  for  downrange- 
crossrange  ratio 

Downrange-crossrange  ratio  coefficients 
for  positive  and  negative  azimuths 


Downrange-uprange  ratio  exponents 


Downrange-uprange  ratio  coefficients  for 
positive  and  negative  azimuths 
Distance  scaling  factor  for  downrange- 
uprange  ratio 

Length  of  the  FOOTDATA  common  block 


First  word  Is  the  logical  unit  number;  second  word  Is  maximum  file 
length  In  words.  These  flies  are  all  on  disk. 


** 


Logical  unit  number  for  the  tape  file. 


J 
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Table  3.  (Part  3 of  7) 


BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

GRPDATA 

R(1500)* 

Distance  from  group  centroid  to  DGZ 

★ 

(nautical  miles) 

THETA(1500) 

Launch  azimuth  of  weapon  from  group  cen- 

•ff 

troid  to  DGZ  (radians) 

IFOR(1500) 

Linkage  used  in  booster  assignments 

IBOOST(500) 

Index  of  first  target  assigned  to  booster 

LXLLFIX(42) 

Fixed  assignment  indicator  (1500  packed 
logical  values) 

HIT 

HIT(16) 

The  index  into  EDD  of  the  targets  in  the 
footprint 

NHIT 

The  number  of  targets  hit 

SEPARATE 

Logical  value  to  determine  if  collocated 
targets  can  be  hit  sequentially 

I START 

I START 

The  Internal  index  of  the  first  target  in 
the  footprint 

MASTER 

IHDATE 

Date  of  run 

IDENTNO 

Run  identification  number 

I SIDE 

Side 

NRTPT 

Number  of  route  points 

NCORRX 

Number  of  corridors 

NDPEN 

Number  of  depenetration  points 

NRE COVER 

Number  of  recovery  points 

NREF 

Number  of  refueling  areas 

NREG 

Number  of  regions 

NTYPE 

Number  of  weapon  types 

NGROUP 

Number  of  weapon  groups 

NTOTBASE 

Number  of  weapon  bases 

NPAYLOAD 

Number  of  types  of  payloads 

NASMTYPE 

Number  of  types  of  ASM; 

NWHDTYPE 

Number  of  types  of  warheads 

NTANKBAS 

Number  of  ba;:''>s  for  tankers 

NCOMPLEX 

Number  of  complex  targets 

NCLASS 

Number  of  weapon  classes 

NALERT 

Number  of  alert  statuses 

NT  GTS 

Number  of  targets 

NCORTYPE 

Number  of  types  of  corridors 

NCNTRY 

Number  of  country  codes 

* 


Subroi'tlrte  DRIVER  >qulvalonces  arrays  R,  THETA,  and  IFOR  to  RANGE,  AZM, 
and  [STAr. 


Table  3.  (Part  4 of  7) 


BLOCK 

VARIABLE  OR  ARRAY  DESCRIPTION 

PARAMETER 

MAXSYS 

Maximum  number  of  systems 

IHNAME(40) 

Hollerith  name  of  MIRV  system 

NUMRVS(40) 

The  number  of  RVs  carried  by  the  bus 

MrYPE(40) 

Functional  form  designator 

PENADD 

TOT  FUEL 

Total  fuel  available 

SRFCl 

SRFC2 

1 Spacing  and  release  fuel  coefficients 

SRFEXPl 

SRFEXP2 

1 Spacing  and  release  fuel  exponents 

SRFDEN 

Distance  scaling  factor 

LPENDAT 

Length  of  the  PENADD  common  block 

PRINT 

PGRP(40) 

Group  for  which  optional  prints  are  de- 
sired 

PSWP(40) 

The  azimuth  sweep  for  optional  prints 

PPAS(40) 

The  Internal  pass  for  optional  prints 

PLIN(40) 

The  lowest  internal  index  number  for  op- 
tional prints 

PHIN(40) 

The  highest  Internal  index  number  for  op 
tional  prints 

NP 

The  number  of  optional  prints  desired 

RAIDATA 

NT 

Total  number  of  strikes 

JGROUP 

Group  number 

JCORR 

Corridor  number 

INDEX(1500) 

Target  index  number 

TGTLAT(1500) 

Target  latitude 

TGTL0NG(1500) 

Target  longitude 

RVAL(1500) 

Relative  value  of  the  target 

DLAT(1500) 

DGZ  offset  latitude 

DLONG(1500) 

DGZ  offset  longitude 

DESIG(1500) 

Target  designator  code 

TASK(1500) 

Target  task/subtask  code 

CNrRYLOC(1500) 

Target  country  location  code 

FLAG (1500) 

Target  flag  code 

I SAL (1500) 

Target  salvo  number 

NDEX(1500) 

Array  used  by  OROER/REORDER 

LRAID 

Length  of  common  RAIDATA 

NTMAX 

Maximum  number  of  target  assignments  for 
one  group 

RAIDATA 

NT( 18003) 

Scratch  array  used  to  transfer  data 

(as  used 

LRAID 

Length  of  common  RAIDATA 

In 

NTMAX 

Maximum  number  of  target  assignments  for 

TRANFER) 

one  group 
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Table  3.  (Part  5 of  7) 


BLOCK  VARIABLE  OR  ARRAY 

RAIDATA  NT 
(as  used  JGROUP 
Is  JCORR 

PATHFIND)  IPATH(33,25,16) 

SUBS(33,25) 

SUBL(33,25) 

NOLEG(33,25) 

COSr(33,25) 

X(24,24) 

ST(15,24) 

IX(15,24) 

LXBNP(34) 

LXNBF(34) 

LXOPT(34) 

LXMCOST(34) 

LXNOSUBT ( 34) 

EXTRA(36) 

RATIO  CDS 
UDS 

SHRTDATA  ALPHAZ(16) 
ALPHA1(16) 
ALPHAZ^fi) 

BETAZ 
BETAl 
BETAZ 
MAXRBOST 
GTWO 
GONE 
GZERO 
DONE 
DZERO 
LSHTDAT 


DESCRIPTION 

Total  number  of  strikes 
Group  number 
Corridor  number 

Index  of  closest  city  for  every  pass  and 
branch 

Index  number  of  initial  city  of  subtour 
Length  of  the  subtour 

Packed  array  with  forbidden  leg  Informa- 
tion 

Cost  of  shortest  path 
Cost  matrix  for  all  points  passed 
Subtotals  for  each  stage  and  point 
Index  of  points 

Logical  flags  for  next  branch  and  pass 
Logical  flags  for  branch  and  pass  never 
branched  from 

Logical  flags  for  optional  branch  and 
pass 

Logical  flags  for  branch  and  pass  with 
minimum  cost 

Logical  flags  for  branch  and  pass  with 
no  subtours 

Buffer  for  RAIDATA  to  have  constant  size 

The  downrange-crossrange  ratio 
The  downrange-uprange  ratio 

Fuel  consumption  parameters 

Fuel  load  parameters 
Maximum  booster  range 
Downrange-crossrange  ratio  parameters 

Downrange-uprange  parameters 
Length  of  the  SHRTDTA  common  block 


? 

i 
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Table  3.  (Part  6 of  7) 


BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

STATS 

NHIT 

Number  of  target a hit  during  current 
Internal  pass 

NFIX 

Number  of  fixed  targets  hit  during  cur- 
rant Internal  pass 

NBUS 

Number  of  busses  used 

NDUMP 

Number  of  RV's  dumped 

FOPT 

Number  of  times  PATHFIND  failed  to  make 
a footprint  because  the  optional  path 
was  too  long 

FPB 

Number  of  times  the  footprint  failed  after 
an  excessive  number  of  passes  or  branches 

FNOEL 

Number  of  lead  targets  that  had  no  legal 
ellipses 

STRKSUM 

KGROUP 

Group  number 

NTSTRK 

Total  number  of  strikes  assigned 

NCORR 

Number  of  penetration  corridors  used 

NSTRK(30) 

Number  of  strikes  assigned  to  each  corri- 
dor 

LSTRKSUM 

Length  of  common  block  STRKSUM 

SYSMAX 

ISYS 

Index  of  MIRV  system  into  PARAMETER 
arrays 

MAXBOOST 

Number  of  boosters  In  the  group 

MAXLOAD 

RVs  carried  by  bus 

MAXEDD 

Maximum  number  of  targets  from  which  a 
footprint  Is  built 

FUELOAD 

Amount  of  fuel  for  the  bus 

RMAX 

Maximum  range  of  the  booster 

T SCRATCH 

ISCR 

Logical  unit  number  for  assignment  data 
scratch  file 

ITABL 

Logical  unit  number  for  footprint  param- 
eter data  scratch  file 

WITHIN 

FIT  (5) 

Logical  flags  Indicating  If  a target  Is 
in  each  of  the  five  ellipses  for  a spe- 
cific first  target 

WPNGRPX 

NWPNS(250) 

Number  of  weapons  In  group 

NVEHGRP(250) 

Number  of  vehicles  In  group 

WLAT(250) 

Latitude  of  group  centroid 

WLONG(250) 

Longitude  of  group  centroid 

ITYPE(250) 

Weapon  type 

IPAY(250) 

Payload  Index 

ICLASS(IOO) 

Class  number 
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Table  3.  (Part  7 of  7) 


BLOCK 


L 


VARIABLE  OR  ARRAY  DESCRIPTION 

ISIKrYPE(lOO)  Hollerith  name  for  type 

IMIRV(40)  MIRV  system  identification  number 
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2.6  ProRTam  FOOrPRNT 


PURPOSE ! 


ENTR\  POINTS: 
FORMAL  PARAMETERS: 


This  is  the  main  program.  It  acts  as  a control 
driver  for  the  rest  of  the  subroutines.  It  Is  the 
Interface  subroutine  between  this  program  and  the 
remainder  of  the  QUICK  system. 

FOOrPRNT 

None 


COMMON  BLOCKS:  CONTROL,  CSTAT,  DSQUARE,  EARTH,  FILABEL,  FILES, 

GRPDATA,  IFTPRNT,  ITP,  MASTER,  MYIDENT,  MYLABEL, 
PARAMETR,  PRINT,  RAIDATA,  STATS,  STRKSUM,  SYSMAX, 
T SCRATCH,  TWORD,  WAROUT , SPNGRPX 


SUBROUTINES  CALLED:  DRIVER,  GLOG,  INITAPE,  INITRANS,  LREORDER,  NEWCOOR, 

ORDER,  RDARRAY,  RDWORD,  REORDER,  SET  DA"' A,  SET  READ, 
SETWRITE,  SKIP,  SLOG,  TABLINPT,  TERKTAPE,  TRANSFER, 
WRARRAY 

CALLED  BY:  Operating  System;  this  Is  a main  program. 


Method: 

The  functioning  of  program  FOOTPRNT  can  be  divided  Into  six  parts;  the 
flowchart  and  the  following  description  are  similarly  divided.  The 
parts  are:  the  Initialization  of  the  program  control  variables,  reading 
the  strike  data  and  determining  the  groups  with  the  MIRV  capability,  set- 
ting the  control  data  for  each  Individual  MIRV  group,  generating  the 
footprints  for  each  booster  In  the  group  and  selecting,  formatting,  and 
writing  the  final  plan,  and  finally  terminating  the  processing.  The 
majority  of  the  file  reading  and  writing  Is  accomplished  In  this  pro- 
gram and  the  specific  cases  are  discussed  In  later  paragraphs. 


Part  I - The  Initialization  of  Control  variables 

The  functioning  of  this  part  of  the  prog:  •’m  is  quite  straightforward 
logically.  The  program  begins  by  calling  subroutine  INITAPE  to  ini- 
tialize the  filehandler.  Subroutine  TABLINPT  is  then  called  to  read 
and  Interpret  the  user-input  parameters.  These  parameters  Include 
the  print  requests,  MIRV  footprint  parameter  data  tables.  Then  the 
majority  of  the  basic  weapon  group  Information  is  read  from  the  BASFILE, 
Commons  /MASTER/  and  /FILES/  are  filled  from  the  blocks  of  the  same  name 
on  the  BASFILE.  Comm-n  /WPNGRPX/  Is  filed  from  BASFILE  blocks  /PAYLOAD/, 
/WPNGRP/,  and  /WPNT  .£/.  Finally,  the  variables  EXTRAB  and  PEXTRA  are 
read  from  block  /r  CESS/  on  the  BASFILE.  This  part  finishes  by  initial- 
izing I he  TMPALO'  and  ALOCGRP  files  and  requesting  the  preliminary  prints. 
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Part  II  - Reading  of  the  Strike  Data  and  Determination  of  Groups  with  a 
MIRV  Capability. 

This  section  merely  determines  the  data  to  be  read  from  the  TMFALOC  file 
and  places  the  data  In  core  for  processing  by  the  remainder  of  the  pro- 
gram. (For  groups  which  do  not  have  a MIRV  capability,  the  data  are 
copied  from  the  TMPALOC  file  onto  the  ALOOGRP  file  for  use  by  program 
POSTTALOC.)  This  section  begins  by  reading  the  data  for  common  /STRKSUM/ 
from  the  TMPALOC  file.  This  record  contains  the  group  number,  the  num- 
ber of  corridors  for  which  strikes  are  planned,  and  the  total  number  of 
strikes  In  each  corridor.  If  the  value  of  the  group  number  Is  equal  to 
an  end-of-flle  marker  (3HE0T)  then  the  program  goes  to  a termination 
block  which  finishes  processing.  (The  termination  block  merely  sets  an 
end-of-file  marker  on  the  ALOCGRP  file,  terminates  all  the  files,  prints 
a termination  message,  and  returns  control  to  the  system  monitor.)  If 
the  end  of  processing  has  not  been  reached,  the  program  determines  the 
length  of  the  fixed  assignment  indicator  record.  This  record  is  a logi- 
cal array  which  has  been  constructed  by  program  ALOCOUT  to  show  which 
weapons  in  the  group  were  set  by  the  fixed  assignment  capability  of  pro- 
gram ALOC.  This  Indicator  is  used  by  later  processors  so  that  if  various 
constraints  require  deletion  of  certain  weapons,  those  weapons  whose 
assignments  were  fixed  by  the  user  In  program  ALOC  will  not  be  among 
those  deleted.  Since  the  logical  arrays  are  packed  with  36  elements  per 
computer  word,  the  program  must  determine  the  length  In  words  of  this 
logical  array  which  must  be  read  for  further  processing.  The  program 
then  determines  If  the  current  group  has  a MIRV  capability.  The  first 
test  Is  on  the  number  of  corridors  In  the  strike  data.  If  the  number  of 
corridors  Is  greater  than  one,  then  the  group  must  have  bomber  weapons 
since  a weapon  group  with  only  missile  weapons  will  send  all  Its  strikes 
to  the  same  corridor,  labeled  0.  If  the  current  group  Is  a bomber  group 
with  more  than  one  corridor  for  its  strikes,  the  data  are  Just  copied  out 
onto  the  ALOCGRP  file  and  control  returns  to  the  beginning  of  this  part 
to  read  the  block  of  data  for  the  next  group.  If  only  one  corridor  is 
assigned  for  the  strikes  of  the  group,  the  program  reads  the  first  three 
words  of  the  /RAIDATA/  block.  These  words  contain  information  on  the 
number  of  the  corridor  to  which  these  strikes  are  to  be  assigned.  If  the 
corridor  number  is  not  a 0,  then  again  it  is  a bomber  group  and  the  data 
are  merely  copied  out  onto  the  ALOCGRP  file.  If  the  corridor  number  is 
a 0,  it  is  a missile  group.  The  next  test  checks  the  payload  table  to 
see  if  the  attribute  IMIRV  has  a value  greater  than  zero  for  this  group. 
If  so,  this  missile  group  does  have  a MIRV  capability  and  is  a candidate 
for  further  processing.  The  final  test  Is  made  before  going  on  to  the 
next  part  is  to  check  for  sufficient  room  in  the  arrays  for  the  strikes 
assigned  to  this  group.  If  there  Is  not  enough  room,  an  error  message 
is  printed,  the  data  are  copied  out  onto  the  ALOCGRP  file  without  furthttr 
processing,  and  control  is  returned  to  the  beginning  of  this  part.  If 
there  is  sufficient  room  to  enable  the  later  subroutines  to  process  th* 
data,  control  is  transferred  to  Part  III. 
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Part  III  - Setting  Control  Data  for  the  Individual  Group 


Certain  data  must  be  preset  before  processing  can  begin  on  the  MIRV 
group.  Processing  In  this  part  Is  relatively  straightforward.  First, 
the  Hollerith  name  of  the  weapon  type  Is  tested  to  see  if  there  is 
agreement  between  a name  Input  with  the  footprint  parameter  con- 
straints and  the  name  used  by  the  QUICK  system.  If  the  names  do  not 
match,  a warning  message  Is  printed  and  processing  continues  as  usual. 

The  program  then  calls  subroutine  SETDATA  to  retrieve  the  correct  user's 
input  footprint  parameter. 

Since  the  majority  of  data  in  the  /RAIDATA/  block  will  be  reordered  and 
modified  by  later  processing,  It  must  be  saved  so  that  the  correct  data 
may  be  written  out  on  the  ALOCGRP.  Therefore  this  part  writes  onto  a 
scratch  file,  ISCR,  the  data  that  were  read  from  the  TMPALOC  file  into 
common  /RAIDATA/.  Table  5 displays  the  format  of  this  scratch  file. 

This  part  then  calls  subroutine  NEWCOOR  to  convert  the  geographic  Infor- 
mation from  latitude  and  longitude  to  range  and  launch  azimuth  from  the 
group  centroid.  Finally,  this  part  initializes  all  the  arrays  which 
make  up  potential  target  lists. 

Part  IV  - Construction  of  Footprints  and  Select  Final  Plan 

This  part  formulates  two  separate  plans  and  then  chooses  the  better  one. 

In  the  first  plan  (a  call  to  subroutine  DRIVER  with  NPASS=1)  the  strikes 
are  considered  individually  in  order  of  increasing  launch  azimuth.  In 
the  second  pass  they  are  considered  In  order  of  decreasing  azimuth. 

This  method  Is  used  so  that  any  potential  target  will  be  Investigated 
by  boosters  whose  initial  assignment  falls  on  either  side  of  the  launch 
azimuth  of  the  potential  target.  Upon  execution,  subroutine  DRIVER  con- 
trols all  processing  In  the  detailed  generation  of  assigning  Individual 
target  strikes  to  specific  boosters  (or  footprints).  After  each  plan 
has  been  constructed  program  FCXTTPRNT  determines  which  is  better  and 
preserves  that  plan  for  print,  further  processing,  and  the  eventual 
writing  onto  the  ALOCGRP  file.  The  plan  deemed  "better"  is  based  on 
checks  against  the  number  of  strikes  assigned,  number  of  fixed  assign- 
ments honored,  and  the  number  of  boosters  generated  ^or  each  plan.  Com- 
parisons are  made  against  these  three  criteria  in  the  order  stated  and 
the  plan  defined  as  better  being  the  one  where  any  one  of  the  testing 
parameter  exceeds  the  other.  If  all  three  parameters  are  equal,  the 
second  plan  Is  chosen  simply  because  it  is  already  in  working  storage. 

Part  V - The  Formatting,  and  Excess  Booster  Removal  and  the  Final  Plan 
for  the  Group 

The  later  programs  In  the  Sortie  Generation  subsystem  expect  the  plan  for 
missile  groups  to  be  in  order  of  decreasing  value  of  the  booster  assign- 
ments. That  is,  if  we  define  the  booster  value  to  be  the  sura  of  the  RVAL 
values  of  all  thi  targets  assigned  to  the  booster,  then  the  later  proc- 
essors expect  these  booster  values  to  be  decreasing  as  the  lists  are 
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Table 

5.  Format 

for  Assignment 

Data  Scratch  File 

BLOJK 

LKNGl’H 

VARIABLE 

DESCRIPTION 

1 

NT 

INDEX 

Target  index  number 

2 

NT 

TGTLAT 

Target  latitude 

3 

NT 

TGTLONG 

Target  longitude 

4 

NT 

RVAL 

Relative  damage  value 

5 

NT 

DLAT 

Offset  latitude 

6 

NT 

DLONG 

Offset  longitude 

7 

NT 

NDF.X 

Sequence  array  for  reordered 
data 

8 

NT 

IFOR 

Forward  pointers  for  first 
pass 

9 

NV 

I BOOST 

First  target  for  booster  in 
first  pass 

10 

NV 

NTB 

Number  of  targets  assigned 
to  booster  in  first  pass 

11 

NT 

NRVADD 

Number  of  RVs  added  to 
each  target  in  first  pass 

NT  ■ Number  of  targets  input  from  I'MPALOC 
NV  = Number  of  boosters  in  group 
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output  onto  the  tape.  This  part  of  program  FOOTPROT,  therefore,  computes 
the  value  of  the  strikes  assigned  to  each  booster.  It  then  reorders  the 
total  target  list  so  that  the  strikes  are  In  order  not  only  by  booster 
value  but  by  order  of  delivery  by  the  MIRV  equipment.  This  function  Is 
done  by  assigning  to  every  booster  a 'ranking'  Index  which  la  defined  as 
follows: 

R =*-(E(RVAL  + FACT)) 

where  R > ranking  Index 

E = summation  over  all  strikes  assigned  to  a booster 

RVAL  > marginal  damage  value  of  Individual  assignment 

FACT  “ 10,000  for  normal  assignment  and  the  square  If  fixed  assign- 
ment 

Thus  once  each  booster  has  been  assigned  a ranking  Index,  subroutine 
ORDER  Is  executed  to  order  the  boosters  based  on  the  defined  parameter 
R.  Ranking  places  most  Importance  on  boosters  that  contain  fixed  assign- 
ments followed  by  the  number  of  Individual  strikes  assigned  to  a given 
booster. 

A determination  Is  now  made  of  the  actual  number  of  boosters  that  are  to 
be  assigned  In  this  group.  Program  PREPALOC  added  (if  user  exercised) 
some  extra  reentry  vehicles  so  that  the  allocator  would  assign  an  ex- 
cess of  targets  to  the  group.  These  extra  reentry  vehicles  were  added 
to  aid  the  processing  in  program  FOOTPRNT.  Program  ALOC  does  not  con- 
sider footprint  constraints  when  allocating  weapons  (strikes)  to  targets.  ^ 

It  Is  possible,  therefore,  that  some  of  the  targets  assigned  by  the  alio-  j 

cator  cannot  be  put  into  a feasible  footprint.  Therefore,  the  excess  of 
weapons  allows  for  generating  a total  assignment  which  when  constraints 
are  applied  does  not  produce  an  underutilization  of  weapons.  Thus,  this 
part  of  the  program  now  must  determine  the  actual  number  of  boosters 
(hence  to  Individual  weapons)  as  data  base  defined  (parameter  NVEHGRP 
for  weapon  group  JGROUP) . Simply,  the  least  valuable  (In  terms  of  rank- 
ing Index  R)  are  deleted  from  the  selected  plan  and  corresponding  counts 
adjusted. 

Salvo  numbers  are  assigned  sequentially  to  each  reentry  vehicle.  Assign- 
ments are  made  between  the  minimum,  MINSAL,  and  maximum  MAXSAL,  salvo 
number.  For  each  salvo,  NSIM  launches  are  made. 

Standard  prints  for  each  group  processed  are  now  produced.  Following 
that  a sequencing  array  (IR)  Is  defined  whose  use  will  be  to  resort  the 
Individual  strikes  In  the  proper  sort  order  for  final  output.  This  pro- 
cess Is  conducted  within  DO  loops  up  to  statements  4100  and  4110.  Array 
NDEX,  contains  the  sorted  order  of  each  booster;  array  IBOOST  points  to 
the  first  target  within  the  booster;  array  IFOR  points  to  the  next  tar- 
get If  any  exists.  By  properly  queuing  IBOOST,  then  IFOR,  array  IR  may 
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be  easily  stated.  Upon  final  definitions  of  array  IR,  individual  strike 
associated  parameters  are  reordered  and  data  written  onto  the  ALOCGRP 
file  and  control  returns  to  the  beginning  of  Part  II  where  the  strike 
data  for  the  next  group  are  read. 

Part  VI  - Termination  Block 

Processing  has  been  concluded;  all  files  are  terminated  and  end  messages 
printed. 

Program  FOOTPRNT  is  Illustrated  in  figures  6 and  7. 


i 


1 


4 
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I Ifure  7.  Program  I’OOTPRNT  (Detailed  Flow)  (Part  1 of  6) 
Part  I:  Control  Variable  Initiation 
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Figure  7.  (Part  2 of  6) 

Part  II:  Read  Strike  Data  and  Find  MIRV  Groups 
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Subroutine  AXES 


PURPOSE: 

Calculate  the  semimajor  and  semiminor  axes  of 
five  selection  ellipses  based  on  calculated  fuel 
load  and  crossrange/downrange  multipliers. 

ENTRY  POINTS: 

AXES 

FORMAL  PARAMETERS: 

R,  AZ  distance  and  azimuth  from  weapon  group  cen 
trold  to  target  (n.  miles,  radians) 

COMMON  BLOCKS: 

AXIS,  eSAVE,  CSYS4,  DSQUARE,  EARTH,  FOOTDATA, 
PENADD,  SHRTDATA,  SYSMAX 

SUBROUTINES  CALLED: 

CRSTODWN,  UPTODOWN 

CALLED  BY: 

DRIVER,  TABLINPT 

Method: 

Subroutine  DRIVER  executes  AXES  for  any  target  that  is  being  considered 
as  a potential  lead  target  (that  is,  a target  which  will  be  the  first 
assignment  from  a booster  containing  MIRV  vehicles).  Given  this  assump- 
tion, AXES  calculates  fuel  related  factors  and  mathematical  contours 
which  when  described  outlines  geographical  areas  whereby  other  targets 
are  to  be  selected  as  potential  elements  of  a footprint.  The  contours 
are  range  and  aziumth  dependent  and  must  be  calculated  anew  for  each 
lead  target. 

Function  CRSTODWN  and  UPTODOWN  computes  the  downrange/crossrange  and 
downrange/uprange  equivalent  distance  multipliers.  The  maximum  load 
(MLl)  of  reentry  vohlcles  to  be  tossed  (number  on  board  at  launch  minus 
one)  and  the  igr.  of  the  launch  azimuth  are  set. 

Based  on  the  ariplicable  system,  the  maximum  booster  range  is  calculated 
and  compared  against  the  range  to  the  lead  target.  If  the  range  to  the 
lead  target  is  greater  than  maximum,  fuel  is  borrowed  from  the  bus  for 
range  extension  and  the  onboard  fuel  load  (paramet  i-  FUELOAD)  decremented 
accordingly  and  fuel  consumption  rates  ce^culated. 

Potential  footprint  contours  are  best  approximated  by  an  ellipse.  There- 
fore, given  a lead  target  the  definition  of  ellipsD(s)  serves  as  an 
appropriate  screening  mechanism  for  selecting  potential  targets  for  foot- 
print assignment.  AXES,  then,  calculates  semimajor  (SM/\)  and  semiminor 
(SMI)  axes  for  five  separate  ellipses  using  assumptions  based  on  the  ex- 
tremeties  of  deployment.  Figure  8 presents  the  configuration  for  ellip- 
ses labelled  1,3,  d 5.  Ellipse  2 equals  ellipse  1 with  a clockwise 
rotation  of  45°;  ellipse  4 equals  ellipse  5 with  a covmterclockwlse  rota- 
tion ol  45°.  Tsi  ,ets  to  be  considered  for  assignment  must  be  at  least 
geogi '•{■h  (cally  located  within  the  defined  ellipses  for  a given  lead  tar- 
get. 'pnn  selection  of  the  proper  number  of  targets  within  the  ellipses 
they  will  be  further  te  ■:  d for  feasibility. 
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I Figure  9 illusCraCes  subroutines  AXES. 
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Target 


Ellipse  1 

b s Maximum  distance  with  one  on- 
board vehicle  that  can  be  thrown 
downrange 

a a Maximum  distance  with  MLl  on- 
board vehicles  that  can  be 
thrown  crossrange 


Ellipse  3 


b - 


a ■« 


Maxinnim  distance  with 
board  vehicles 
thrown  downra^ 

Maximum  dl^t-dnce  with  one  on- 
board yetticle  that  c<’n  be 
thMwn  crossrange 


b ■ Maximum  distance  with  one  on- 
board vehicle  that  can  be 
thrown  uprange 

a = Maximum  distance  with  MLl  on- 
board vehicles  that  can  be 
thrown  crossrange 


] 

i 


Arrow  indicates  downrange  direction 

MLl  equals  Initial  loading  factor  minus  one 


F'gure  8.  Maximum  Footprint  Ellipses  Related  to  Lead  Target 
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PURPOSE : 

This  routine  calculates  the  crossrange-downrange 
ratios. 

ENTRY  POIOTS: 

CRSTODWN 

FORMAL  PARAMETERS; 

I - System  type  Index 

R Range  to  first  target  (nautical  miles) 

AZ-  Launch  azimuth  to  first  target 

COIMON  BLOCKS; 

CSYS4,  FOOTDATA,  PENADD,  SHRTDATA 

SUBROUTINES  CALLED; 

None 

CALLED  BY; 

AXES 

Method; 

This  function  simply  applies  the  crossrange-downrange  ratio  equations 
whose  parameters  were  Input  In  subroutine  TABLINFT.  The  formal  param- 
eters are  the  system  type  Index,  the  range  and  azimuth  to  the  first 
target . 

Function  CRSTODVfN  Is  Illustrated  In  figure  10. 


I 

i 
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Figure  10.  Function  CRSTOEWN 


2.6.3  Subroutine  DRIVER 

PURPOSE;  Individual  strikes  are  assigned  to  specific 

boosters. 

ENTRY  POINTS:  DRIVER 

formal  PARAMETERS;  None 

COMMON  BLOCKS;  AXIS,  BETA,  CONTROL,  CSTAT,  DSQUARE,  EARTH,  EDD, 

GRPDATA,  HIT,  ICOUNT,  lEDD,  lEDDC,  lEDDF,  ISTART, 

PRINT,  RAIDATA,  RATIO,  STATS,  SYSMAX,  WAROUT , 

WITHIN 

SUBROUTINES  CALLED;  AXES,  ELLIPSE,  CLOG,  PATHFIND 

CALLED  BY;  FOOTPRNT 

Method; 

DRIVER  Is  executed  twice  for  each  weapon  group  that  contains  MIRV  sys- 
tems. For  each  call  (referred  to  as  passes)  Individual  strikes  are 
assigned  to  specific  boosters.  The  first  call.  Pass  1,  Investigates  the 
target  list  ordered  by  Increasing  azimuth;  the  second  call.  Pass  2,  In- 
vestigates the  target  list  in  the  reverse  order  from  the  first  call. 

FOOTPRNT  determines  the  better  of  the  two  plans. 

Prior  to  detailed  explanation  of  subroutine  DRIVER,  certain  usages  of 
terminology  should  be  clarified  and  are: 

i 

o Lead  target  --  The  first  target  assigned  within  a footprint.  j 

Fuel  factors  are  computed  relative  to  this 
target . 

o Fixed  target  — A target  assignment  directed  by  the  user. 

o Dumped  target  — Any  target  that  has  a strike  generated  within 

FOOTPRNT  assigned  to  It.  The  end  result  Is 
the  hitting  of  a target  more  than  once. 

o Booster  or  Bus  — The  platform  that  carries  the  MIRV's. 

o Sweep  --  Investigation  of  the  entire  target  list  based 

on  precise  assumptions 

o Ellipse  — Geographic  contour  relative  to  a lead  target. 

For  a feasible  footprint,  potential  targets 
must  be  located  within  the  boundaries  of  the 
elllpse(s).  However,  targets  located  within 
an  ellipse  are  not  necessarily  feasible  foot- 
printable  targets. 


53 


CH-3 


o Cone  --  Method  of  target  selection.  Neighboring  tar- 

get on  the  Inmedlate  right  or  left  (in  the 
azimuth  sense)  of  a lead  target  are  selected. 

Major  controlling  parameters  that  directs  the  logic  flow  consists  of: 

o ISTAT  --  Status  array  that  Indexes  Into  the  Input  target  list. 

Initially  set  to  zero  and  reset  to  the  next  target  or 
a booster  number  whenever  a target  Is  assigned  to  a 
feasible  footprint. 

o NPASS  --  Pass  Indicator.  Equals  1 for  search  on  Increasing 
azimuth;  equals  2 for  search  on  decreasing  azimuth. 

o INPASS  — Sweep  Indicator.  Equals  1 for  fixed  assignment 
sweep;  equals  2 for  normal  sweeps,  equals  3 for 
dumping  sweeps. 

o ISTART  --  Target  Index  (Into  the  ISTAT  array)  that  is  being 
considered  as  a lead  target  for  a given  booster. 

o lEDDF  --  Array  that  contains  a list  of  Indexes  Into  the 
ISTAT  array  that  are  to  be  tested  for  feasible 
footprint  determination.  Parameter  MAXIN  defines 
the  number  of  entries. 

o HIT  — If  a footprint  is  feasible  (from  the  lEDDF  list), 

the  target  lEDDF  Indexes  are  placed  In  the  HIT 
array  In  the  order  of  assignment. 

o EDD  — Equivalent  downrange  distance  array  of  going  from 

target  I to  target  J. 

o SEPARATE  --  Set  TRUE  If  calculated  targets  are  not  permitted 
within  a footprint;  set  FALSE  If  located  targets 
are  permitted. 

General 

driver's  major  modes  of  operation  consists  of  looping  through  the  entire 
target  list  (In  the  correct  sort)  and  defining  a target  as  being  lead  and 
from  that  assumption  collecting  a subset  of  targets  that  potentially  may 
form  a footprint.  These  targets  are  passed  to  subroutine  PATHFINDER  to 
determine  if  a feasible  footprint  exists  within  the  subset.  If  a foot- 
print does  exist,  the  Individual  strikes  are  assigned  to  the  booster  be- 
ing formed;  If  not,  fbn  next  target  Is  considered  as  lead  and  the  process- 
ing continues  until  ue  entire  target  list  has  been  processed. 

For  V execir  li  of  DRIVER,  the  entire  target  list  Is  'swept'  three 
ways  V separate  assumptions  made  on  each  sweep.  Comnientary  to  follow 
presents  the  assumptions  made  for  each  sweep  followed  by  methods  of 
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target  selection  common  to  each  sweep  and,  finally,  target  assignment  Is 
discussed . 


Sweep  1 (INPASS^l) 

Only  user  fixed  assignments  are  considered  for  lead  target  consideration. 
However,  companion  potential  targets  need  not  be  fixed;  only  the  lead 
target.  This  method  of  selection  places  a high  premium  In  guaranteeing 
the  assignment  of  fixed  targets.  Selection  of  targets  consists  purely 
of  the  ellipse  algorithm;  no  other  method  Is  used  for  this  sweep. 

Sweep  2 

This  sweep  Is  referred  to  as  the  normal  sweep;  that  Is  there  Is  no  re- 
striction on  the  targets  to  be  selected.  For  this  sweep,  the  target 
list  Is  guerled  four  times  based  on  two  settings  of  parameter  SEPARATE 
(see  above  for  definition).  For  each  setting  of  SEPARATE,  potential 
targets  are  collected  that  are  geographically  located  within  defined 
ellipses  from  a lead  target  and  following  that  query,  the  entire  target 
list  Is  again  queried  collecting  targets  that  neighbors  a lead  target 
on  both  sides  (left  or  right).  The  first  query  Is  termed  the  ellipse 
method  of  selection,  the  second,  the  cone  method.  Details  of  both  are 
discussed  later. 

All  possible  attempts  of  forming  footprints  whereby  a given  footprint 
does  not  'hit'  a single  target  more  than  once  are  considered.  However, 
there  are  many  data  base  sceneries  where  a footprint  may  be  formed  only 
through  the  consideration  of  duplicate  assignments.  In  particular,  this 
situation  exists  for  a weapon  group  assignment  where  many  strikes  are 
assigned  to  only  one  or  two  Individual  targets.  The  existence  of  this 
fact,  and  other  scenerlos,  dictates  the  relaxing  of  the  duplication  re- 
striction. SEPARATE  communicates  with  the  assignment  subroutine  (PATH- 
FINDER) as  to  the  level  of  restriction. 

Sweep  3 

Each  booster  within  the  weapon  group  (of  which  there  are  NV  In  number) 
must  completely  utilize  Its  onboard  payload  Inventory.  Say,  for  example, 
a booster  may  toss  three  reentry  vehicles;  each  footprint,  then,  must  have 
three  strikes.  A total  of  one  or  two  strikes  per  booster  Is  not  per- 
mitted. This  sweep  (called  the  dumped  sweep)  Is  necessary  only  If  the 
correct  number  of  footprints  were  not  formed  due  to  target  spacing.  For 
this  sweep,  the  number  of  targets  needed  to  define  a footprint  will  be 
sequentially  reduced  by  one  unit  for  a sweep  of  the  entire  target  list 
and  the  targets  being  considered  as  a lead  are  assigned  multiple  strikes, 
or  are  dumped  on,  by  an  amount  equalling  the  reduction.  Defining  param- 
eter MAXLQAD  as  the  Inventory  payload  number,  there  may  be  up  to  HAXLOAD 
queries  through  the  target  list.  For  each  reduction  only  the  cone  method 
of  target  selection  Is  employed  and  parameter  SEPARATE  set  to  consider 
coplanor  targets. 


55  CH-3 


i 


Target  Selection 

For  any  sweep,  the  ISTAT  array  Is  queried  for  potential  target  selection. 

If  an  entry  into  ISTAT  equals  zero  that  target  is  unassigned;  if  the 
entry  is  not  zero  it  has  been  assigned  and  need  not  be  considered  anew. 

Upon  finding  an  entry  of  zero  into  ISTAT,  chat  target  is  called  lead  and 
ISTAT  is  further  investigated  for  selection  potential  targets  to  be  foot- 
printed.  Both  the  ellipse  and  the  cone  method  selection  are  discussed 
below. 

For  each  lead  target,  subroutine  AXIS  is  called  to  calculate  the  dimen- 
sions of  five  separate  ellipses  relative  to  a lead  target.  Now,  for 
each  entry  of  zero  into  ISTAT,  subroutine  ELLIPSE  determines  if  the 
considered  target  is  geographically  located  within  the  ellipses.  If  so, 
array  ICOUNT  and  lEDD  are  updated  and  the  remaining  targets  are  processed. 
This  continues  until  a cutoff  filter  is  exceeded  (azimuth  BCRIT)  or  until 
one  ellipse  collects  a proper  amount  of  potential  targets  (parameter  MAXEDD 
which  equals  the  onboard  payload  Inventory  plus  50  percent). 

Upon  meeting  the  BCRIT  cutoff  filter,  all  five  ellipses  are  counted  to 
find  the  one  with  the  largest  number  of  entries  which  must  at  least  equal 
the  payload  inventory  (MAXLOAD)  for  footprint  consideration.  If  no  single 
ellipse  contains  a footprintable  number  of  entries,  the  counts  from  two 
ellipses  are  merged  into  one.  The  merging  expands  the  geographic  areas 
by  considering  neighboring  ellipses  that  overlap  each  other  to  a large 
degree.  Five  new  counts  are  now  formed  and  the  one  with  the  maximum  num- 
ber of  entries  is  considered  for  footprinting.  If  the  merged  counts  fall 
to  contain  at  least  MAXLOAD  entries,  the  entire  collection  of  potential 
targets  is  formed  into  one  list  and  that  list  is  then  considered  for 
footprinting. 

If  the  selection  process  produces  a feasible  footprint,  arrays  are  updated 
and  a new  lead  target  is  chosen.  If  a selection  criteria  failed  to  pro- 
duce a footprint,  the  lead  target  in  question  is  not  dropped  until  all 
possible  selection  combinations  have  been  tested.  That  is,  if  one  indi- 
vidual collection  failed  to  produce  a footprint,  all  other  possible  se- 
lections will  be  attempted.  If  the  ellipse  1 collection  failed,  the 
ellipse  3 collection  may  produce  a footprint,  for  example. 

The  ellipse  collection  always  'looks'  in  one  azimuth  direction  relative 
to  a lead  target.  This  prevents  a snaking  effect  and  also  makes  best 
use  of  crossrange  fuel  consumption  rates.  However,  certain  target  col- 
lections may  only  be  properly  assigned  upon  permitting  the  searching  of 
all  azimuths  relative  to  a lead  target.  This  method  of  target  selection 
has  been  referred  to  as  the  cone  selection. 

The  algorithm  for  < ne  selection  attempts  to  pick  targets  such  that  the 
azlmiih  of  a lead  arget  centers  the  final  collection.  First,  the  near- 
est target  to  tl  right  ■■<C  a lead  target  is  selected.  Second,  all  tar- 
gets to  the  lef  of  a 1 «,d  target  whose  azimuth  (relative  to  lead)  is 
less  than  or  quais  the  zimuth  of  the  chosen  target  to  the  right  of  a 


56 


CW-3 


w 


1 


lead  are  selected.  Third,  an  additional  target  to  the  left  is  chosen. 
Now,  processing  reverts  to  the  right  of  a lead  target  and  all  targets 
selected  up  to  the  azimuth  equalling  the  azimuth  of  the  last  target 
selected  on  the  left  of  a lead  target.  One  more  target  is  chosen  and 
processing  continues  to  the  method  outlined.  Processing  for  a given 
lead  target  terminates  upon  collecting  MAXEDD  entries  or  exhaustion  of 
the  complete  target  list. 

Target  Assignment 

Array  lEDDF  contains  a list  of  target  Indexes  that  are  to  be  considered 
for  footprinting.  From  this  array,  the  Equivalent  Downrange /Distance 
array,  EDD,  Is  computed  which  contains  the  costs  (distances)  of  going 
from  target  I to  target  J.  Subroutine  PATHFINDER  Interrogates  the  array 
and  formulates  the  optimal  footprint.  If  It  exists.  PATHFINDER  returns 
parameter  NHIT  and  array  HIT.  If  NHIT  equals  zero,  no  footprint  could 
be  formed.  If  NHIT  Is  positive  It  equals  the  number  of  entries  In  the 
footprint.  Array  HIT  contains  the  Indexes  Into  the  lEDDF  array  of  the 
target  that  are  assigned  to  the  footprint  and  the  order  of  assignment. 

Subroutine  DRIVER  Is  Illustrated  In  figure  11. 


i 
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Figure  11.  (Part  2 of  8) 
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FI  ;ure  11,  (Part  5 of  8) 
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Figure  11.  (Part  6 of  8) 
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’6.4  Subroutine  ELLIPSE 

PURPOSE ; To  determine  whether  a target  falls  on  or  within 

one  or  more  of  five  ellipses  centered  about  a lead 
target. 

ENTRY  POINTS;  ELLIPSE 

FORMAL  PARAMETERS:  J - Target  Index 

COMMON  BLOCKS:  AXIS,  BETA,  EARTH,  GRPDATA,  ISTART,  RATIO,  WITHIN 

SUBROUTINES  CALLED:  None 

CALLED  BY:  DRIVER 

Method; 

Subroutine  ELLIPSE  ascertains  whether  a target  (Indexed  by  formal  param- 
eter J)  should  be  considered  for  footprinting  with  target  ISTART  assumed 
as  the  lead  target.  If  target  J Is  geographically  located  within  one  or 
more  defined  ellipses  relative  to  target  ISTART,  it  Is  then  considered 
as  being  a potential  member  of  the  footprint  being  calculated.  ELLIPSE 
does  not  determine  feasible  footprints;  It  purely  nominates  candidates. 

For  target  ISTART,  subroutine  AXES  calculated  the  semimajor  (array  SMA) 
and  semimajor  (array  SMI)  axes  for  five  separate  ellipses.  Subroutine 
ELLIPSE  applies  spherical  trignometry  equations  about  target  ISTART  and 
J and  sets  logical  array  FIT  to  true  If  target  J geographically  resides 
within  the  boundaries  of  any  of  the  ellipses. 

* 

Figure  12  presents  the  basic  geometrical  relationship  amongst  the  lead 
target,  a potential  target,  and  a corresponding  elliplcal  contour.  Sym- 
bols as  used  within  the  figure  (and  as  contained  within  the  source  code) 
are  defined  as; 

o SMAT  — Semimajor  axis  of  the  ellipse 

o SMIT  — Semiminor  axis  of  the  ellipse 

o UDS  — Downrange  distance  from  target  ISTART  to  target  J.  May 

be  negative 

o CDS  --  Crossrange  distance  (perpendicular  to  UDS)  from  target 
ISTART  to  tarfo.t  J. 

UDS  and  CDS  determine'  .on  consists  of  the  application  of  the  basic  spheri- 
cal trlgometrlc  lawr  jf  Sines  and  Cosines.  From  these  two  calculations 
and  knowledge  of  e'. at  ions  governing  elliplcal  shapes,  it  can  readily  be 
determined  If  tarb>^t  J re.  ides  within  a geographical  footprint  limit  of 
target  ISTART.  Comments  to  follow  parallels  the  Implemented  code  wiilch 
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performs  calculation  on  an  individual  ellipse  basis. 
Ellipse  1 and  5 (Statement  44) 


These  two  ellipses  are  mirror  images  of  each  other.  Ellipse  1 forms  a 
downrange  contour  related  to  target  ISTART  and  ellipse  5 forms  an  up- 
range  contour.  Therefore,  if  target  J location  is  uprange  of  ISTART, 
it  cannot  reside  within  ellipse  1;  and  correspondingly  if  J is  downrange 
of  ISTART,  it  cannot  reside  within  ellipse  5.  Local  parameter  SIGM  equals 
minus  one,  if  target  J is  uprange  of  ISTART.  The  second  set  of  checks 
compares  CDS  against  the  semiminor  axis  (SMIT)  and  UDS  against  the  semi- 
major axis  (SMAT)  and  if  CDS  or  UDS  is  greater  than  the  ellipse  parameter 
then  target  J exceeds  the  limits.  Otherwise,  through  use  of  basic  ellip- 
tical equations,  local  parameter  X la  determined  and  compared  accordingly. 

Parameter  FIT(l)  and  FIT(5)  are  set  based  on  the  logic  outlined  above  and 
similar  calculations  made  for  the  remaining  ellipses. 

Ellipse  3 (Statement  100) 

Ellipse  3 is  oriented  90°  (clockwise)  from  ellipse  1.  All  checks  and  de- 
terminations are  as  made  for  ellipse  1 except  that  UDS  is  compared  against 
SMIT  and  CDS  against  SMAT. 

Ellipse  2 and  4 (Statement  62) 

Ellipse's  2 shape  equals  ellipse  1 but  rotated  45°  clockwise.  Ellipse's 
4 shape  equals  ellipse  5 but  rotated  45°  counterclockwise.  In  addition 
to  the  standard  calculations  of  local  parameters  SIGM,  UDS,  and  CDS, 
parameter  MODE  is  set  accordingly: 

0 

o MODE  =»  1 if  UDS  0 and  CDS  = 0 

o MODE  = 2 if  UDS  = 0 and  CDS  4 0 

o MODE  = 3 if  UDS  4 0 and  CDS  4 0 

The  macro  checks  of  the  various  settings  for  SIGM.  ’ JDE,  UDS,  and  CDS 
are  best  outlined  by  following  the  flowchart  Lor  ELLIPSE.  These 
checks  ask  the  obvious  questions  of  target  ,)  residing  within  the  correct 
quadrant  and  the  crossrange  and  downrange  distances  are  within  the  limi- 
tation of  either  ellipse  2 or  3.  If  these  checks  ^ail  to  filter  out  tar- 
get J,  the  detailed  mathematics  as  outlined  below  are  applied. 

Figure  13  presents  the  plctural  relationship  of  target  spacing  relative 
the  the  ellipse  2 coor'^lnate  system.  The  dash  curve  represents  ellipse's 
2 contour  where  targ'  J must  reside  for  footprinting  consideration. 

Parameter  C is  deto  lined  from  the  law  of  Cosines;  parameter  ALF  from 
the  la  / of  Sines,  snowing  ALF  and  knowing  ellipse  2 is  rotated  45°,  param- 
eter AI  T Is  readily  deter. ained  and  APY  and  BPX  now  calculated  from  the  laws 
of  'lines  and  Cosines  respectively. 
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Igure  14  presents  the  geometry  for  two  simplified  cases  where  either  the 
crossrange  or  downrange  distance  is  zero. 

Calculations  for  ellipse  4 is  solved  as  ellipse  2,  except  that  the  minor 
image  is  generated  in  the  first  quadrant  as  necessary. 


Subroutine  ELLIPSE  is  Illustrated  in  figure  15. 
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Figure  14.  Resolution  of  Target  Separation  onto 

Ellipse  2 Coordinate  System,  Simplified  Cases 
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Figure  15.  Subroutine  ELLIPSE  (Part  1 of  10) 
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Figure  15.  (Part  5 of  10) 
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2.6.5  Subroutine  NEWCOOR 


I 


PURPOSE; 


This  routine  calculates  a target's  range  and 
azimuth  from  the  weapon  group  centroid. 


ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED; 
CALLED  BY; 


NEWCOOR 

IG  - Group  number 

EARTH,  GRPDATA,  HP,  MYIDENT , RAIDATA,  TSCRATCH, 
WPNGRP 

DISTF,  LREORDER,  ORDER,  REORDER,  WRARRAY 
FOOTPRNT 


Method: 

This  routine  converts  the  target  coordinates  for  use  by  the  footprint 
generation  subroutines.  It  is  called  once  for  each  group. 

For  each  target,  NEWCOOR  adds  the  target  point  offsets  (DLAT,  DLONG)  to 
the  target  coordinates  (TGTLAT,  TGTLONG) . The  range  from  the  weapon 
group  centroid  to  the  target  point  (RANGE)  is  then  computed  by  a call 
on  the  distance  function,  DISTF.  The  position  of  the  group  centroid  is 
given  by  the  variables  WLAT  and  WLONG  in  common  /WPNGRPX/.  The  formal 
parameter  IG  is  used  to  retrieve  the  correct  position. 

The  calculation  of  the  launch  azimuth  uses  spherical  trigonometry. 

First  all  the  latitudes  are  converted  to  radians  by  the  factor  DEGTORAD 
in  common  /EARTH/.  The  range  is  normalized  by  dividing  by  the  radius 
of  the  earth  (RADIUS  in  common  /EARTH/) . 

The  computation  of  the  launch  range  is  performed  as  follows.  Define  a 
spherical  triangle  with  vertices  at  the  group  centroid.  North  Polr  and 
I target.  (See  figure  16.)  Let  angle  A (the  launch  azimuth)  be  the  angle 
between  the  line  connecting  the  centroid  and  the  Nori-h  Pole  and  the  line 
connecting  the  centroid  and  the  target.  Measure  the  distances  between 
the  points  in  terms  of  the  number  of  r^  M-ns  subi  ended  > n ; ho  con  ;ec*  f:i^ 
lines.  If  distance  a Is  the  distance  betkven  target  and  North  Pole,  b 
is  the  distance  between  centroid  ind  tari’et,  an>i  . I t distance  be* 
'ween  centroid  and  North  Pole.  • • 


a = ’^/2  - (TGTLAT*DEGTORAD) 
b = RANGE/RADIUS 
c = V2  - (WLAT*DEGTORAD) 

Using  the  law  of  cosines  for  spherical  triangles,  then: 


. cos  a - (cos  b , CCS  c) 
cos  A “ i 

sin  b . sin  c 

The  difference  between  the  target  longitude  and  the  centroid  longitude 
is  then  used  to  determine  the  sign  of  the  launch  azimuth. 

After  all  launch  azimuths  have  been  computed,  the  target  data  are  reordered 
according  to  increasing  value  of  launch  azimuth.  The  sequence  array  used 
for  this  reordering  is  written  on  the  assignment  data  scratch  file,  ISCR, 
for  later  use. 

Subroutine  NEWCOOR  is  illustrated  in  figure  17. 


2.6.6  Subroutine  PATHFIND 


PURPOSE ; This  routine  will  attempt  to  find  a feasible  foot- 


print  from  a collection  of  potential  targets. 

ENTRY  POINTS: 

PATHFIND 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

ALGOS,  CSAVE,  EDD,  HIT,  ISTART,  MAXPB,  PATHS 
RAIDATA,  STATS,  SYSMAX 

SUBROUTINES  CALLED: 

GLOG,  SLOG 

CALLED  BY: 

DRIVER 

Method: 

Subroutine  DRIVER  executes  PATHFIND  upon  collecting  a subset  of  targets 
that  may  potentially  form  a feasible  footprint.  PATHFIND  Interrogates 
the  target  list  and  finds  an  acceptable  "path".  If  it  exists,  which  when 

traversed  will  hit  the  proper  number  of  targets  within  the  fuel  con- 
straints of  the  MIRV  platform;  hence  forming  a footprint. 


Subroutine  DRIVER  supplies: 

o EDD(I,J)  — Effective  distance  between  all  target  I,J  combina- 
tions. 

o FACT (I)  — The  MIRV  fuel  consumption  rate  based  on  the  number 

of  RVs  on  board  (referred  to  as  stages).  FACT(l) 
Is  the  rate  with  one  RV  on  board. 

o MAXLOAD  — The  loading  factor  for  the  MIRV  platforms. 


o 


MAXIN  — Number  of  entries  supplied  by  DRIVER.  Cannot  be 
less  than  MAXLOAD. 

FUELOAD  — Amount  of  fuel  Initially  on  board. 


PATHFIND  conducts  operations  in  three  phases:  Initialization  and  pre- 
dvnamlc  alRorithma;  dynamic  prograamilnit  algorithm  and  branch  and  IxMind 
algorithms.  Flahorai ton  on  each  phase  follows. 

lali Igllsai lew  amd  Pied/maml>  Aijptithm  Phase 


A 


! 


o IND 


0 

ISTG 

o 

ISTGl 

0 

NTOUR 

o 

SUBS(I,J) 

o 

SUBL(I, J) 

o 

COST(I,J) 

o 

NOLEG(I,J) 

o 

IPATH(I,J,K) 

o 

LXNBF(K) 

0 

LXBNP(K) 

o 

LXNOSUB(K) 

o 

LXOPT(K) 

o 

LXMCOST(K) 

0 

IX(I,J) 

o 

TGT(I) 

o 

HIT(I) 

0 

MORE 

o 

IBNEW 

0 

II 

o 

IB 

o 

J.l 

IB 

o 

BNi' 

«niT  t 

— Number  of  targets  considered 

— Number  of  stages  (or  number  of  RVs  onboard ) 

— Number  of  stages  required  to  deliver  all  RVs 

— Number  of  optimum  solutions  found 

— Target  index  of  subtour  for  pass,  branch  corn- 
combinations  (subtour,  pass,  branch  explained 
under  the  branch  and  bound  algorithms) 

— Number  of  legs  in  subtour 

— Cost  of  subtOur 

— Indicator  of  no  legs  within  a subtour 

— Target  visited  each  stage  of  subtour 

— Indicator  that  target  was  never  branched  from 

— Indicator  of  target  to  be  branched  ciom  on  the 
next  pass 

— Indicator  of  no  subtour  on  this  branch 

— Indicator  that  branch  is  optimal  solution 

— Indicator  that  branch  has  minimum  cost 

— Points  to  next  target  to  be  visited  for  stage 
I and  current  target  J 

— Target  index  number 

— Target  index  numbers  of  the  final  path 

— Indicator  if  more  branches  exist 

— Number  of  branches  for  next  pass 

— Pass  number 

— Pass  being  processed  to  find  branches 

— Rrancli  number 

--  Branch  being  proces  cl  l«’r  bt.mchlng 
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Immediately  following  the  initializing  of  required  parameters  two  sim- 
plified observations  of  the  target  list  (DO  loops  188  and  5050)  attempt 
to  develop  a feasible  footprint. 

DO  loop  188  collects  costs  assuming  the  path  sequence  consists  of  start- 
ing with  target  one,  going  to  target  two,  continuing  to  target  three  and 
continuing  the  numerical  sequence  up  to  ISTGl  stages.  If  this  collection 
costs  less  than  FUELOAD,  it  is  called  a feasible  footprint.  Note  within 
the  DO  loop  of  the  use  of  indexes  for  arrays  X and  FACT.  A sequence  of 

1-2-3 ISTG  requires  fuel  consumption  rates  for  ISTG,  ISTG-1,  ISTG-2, 

1 RVs  onboard  which  explains  the  reversal  of  Indexes. 

If  DO  loop  188  final  cost  exceeded  FUELOAD,  a second  degree  of  sophis- 
tication is  applied  within  DO  loop  5050.  This  loop  assumes  target  one 
as  being  the  first  target  within  the  path  and  from  that  assumption  each 
remaining  potential  target  is  queried  to  find  the  minimal  cost  of  going 
from  target  one  to  the  second  stage.  Minimal  costs  of  going  from  stage 
N to  stage  N+1  are  now  found.  For  each  consideration,  a path  that  repeats 
a previously  assigned  target  is  denied.  For  each  stage  all  remaining 
targets  are  considered  in  obtaining  the  minimal  costs  (parameter  AID) 
of  going  to  the  next  stage.  As  always,  costs  are  accumulated  (parameter 
XCOST)  and  upon  completion  compared  against  FUELOAD. 

These  two  simplified  searches  reduces  computer  time  by  finding  the  ob- 
vious solutions.  Note  that  these  solutions  adhere  to  the  objective  of 
finding  feasible  solutions  but  not  necessarily  optimal  solutions  (in 
terms  of  finding  a path  that  utilizes  minimal  fuel  costs).  Optimal 
paths  are  necessary  only  if  no  other  path  produces  a solution. 

Dynamic  Programming  Algorithm 

The  d}nnamlc  programming  algorithm  begins  with  label  48  (refer  to  figure 
18)  and  all  logic  contained  within  DO  loop  1000. 


This  solution  is  a variation  of  the  classical  traveling  salesman  which 
requires  a salesman  to  visit  N cities  once  and  only  once  in  a path  such 
that  he  visits  the  cities  with  minimal  total  distance  traveled.  For  the 
footprint  problem  cities  become  target  assignments  and  distance  becomes 
the  fuel  costs  of  going  from  assignment  I to  J. 


The  solution  consists  of  working  the  problem  backward.  Starting  at  the 
end  condition  (one  RV  onboard)  the  minimal  path  of  arriving  there  is 
obtalnad  by  querying  the  coats  of  all  potential  second  stage  targets. 

Once  found,  the  second  stage  (two  RVs  onboard)  is  processed  to  find  the 
optlmel  l,J  third  stage  target  cosrt>inat Ion.  This  method  continues  un* 
til  eech  I,J  slnlmel  combination  la  obtained  for  all  onboard  stages, 
for  each  stage,  arravs  IT  and  IX  are  stored.  fTd.J)  contains  the  mini* 
mol  scrwmwleced  cost  far  stage  I and  target  J.  Array  IX(I,J>  stores  the 
beet  neet  target  (I)  far  stage  I end  target  J.  Therefore,  for  each  st sa# 
'ho  srriMtleied  sed  hoot  path  to  'oeasinod  within  «T  emd  II 


a 
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FlRure  18.  Dynaalc  PrograonlnR  Algorithm 
(Part  I of  2) 


I M-  ' 


Starting  With 
Second  Stage 
Find  Path  With 
No  Duplications 


See  Figure  19 


I Figure  U.  (Part  2 of  2) 


8 


Upon  processing  all  stages,  a feasible  path  is  defined  if  there  is  suffi- 
cient fuel  and  no  target  is  contained  within  the  path  more  than  once 
(obtained  from  DO  loop  2001).  If  a feasible  path  is  obtained,  process- 
ing stops.  For  the  case  of  repeating  assignment,  branch  and  bound  al- 
gorithms are  employed. 

Branch  and  Bound  Algorithms 

A "branch  and  bound"  algorithm  is  used  for  solving  solutions  containing 
multiple  target  assignments  as  generated  by  dynamic  programming  exists. 

The  set  of  all  tours  (feasible  solutions)  is  broken  up  into  increasingly 
small  subsets  by  a procedure  called  branching.  For  each  subset  a lower 
bound  on  the  length  of  the  tours  therein  is  calculated.  Eventually,  a 
subset  is  found  that  contains  a single  tour  whose  length  is  less  than 
or  equal  to  some  lower  bound  for  every  tour. 

By  properly  resettig  arrays  ST  and  X,  repeated  paths  may  be  denied  and 
other  optimal  solutions  that  were  previously  masked  obtained.  Through 
correct  control  of  working  arrays  (see  subsection  on  initialization) 
new  tours  are  identified  and  feasible  paths  searched  for.  Figure  19 
outlines  the  complete  detailed  control  of  the  branch  and  bound  algorithms. 
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Figure  19.  (Part  5 of  8) 
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Figure  19.  (Pert  7 of  8) 
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2.6.7  Subroutine  SETDATA 

This  routine  retrieves  from  a scratch  file  (ITABL) 
the  correct  footprint Ing  parameters  for  a partic- 
ular system. 

SETDATA 


I - Index  to  the  system  desired 

CSYS4,  FILABEL,  FILES,  FOOTDATA,  ITP,  MYIDENT, 
MYLABEL,  PARAMETER,  PENADD,  SHRTDATA,  SYSMAX, 

T SCRATCH,  TWORD 

ABORT,  RDARRAY,  RDWORD,  SETREAD,  SKIP,  TERMTAPE 
FOOTPRNT 


Method; 

This  routine  merely  moves  data  from  the  footprint  parameter  scratch  file, 

ITABL,  to  the  footprint  test  arrays.  (See  table  8.)  As  subroutine 
TABLINPT  reads  the  footprint  parameter  data.  It  writes  them  on  the  ITABL 
file. 

SETDATA  first  retrieves  the  system  MTYPE  and  IHNAME  from  those  arrays  In 
comonn  /PARAMETR/,  using  the  formal  parameter  I,  as  an  Index. 

SETDATA  then  determines  If  the  correct  system  data  are  already  In  the 

footprint  testing  storage.  If  so,  the  routine  exists.  Otherwise  the 

ITABL  file  Is  searched  for  the  correct  data.  (Table  9 shows  the  format  > 

of  this  file.)  If  the  data  are  not  found,  the  fllehandler  will  abort  j 

the  run.  Upon  finding  the  data,  SETDATA  transfers  them  to  the  appro-  f 

prlate  array  as  listed  In  table  8. 

Subroutine  SETDATA  Is  Illustrated  In  figure  20. 


PURPOSE ; 

ENTRY  PODTrS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS; 

SUBROUTINES  CALLED: 
CALLED  BY; 
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Table  8.  Footprint  Parameter  Data  Transmission 


KTYPE 

SYSTEM 

ARRAY  LENGTH 

FOOTPRINT  TESTING 
COIMON 

BLOCK 

1 

Type-1 

LLNGDAT 

/FOOTDATA/ 

2 

Type -2 

LSHTDAT 

/SHRTDAT/ 

3 

Type- 3 

LPENDAT 

/PENADD/ 

/FOOTDATA/ 

4 

Type-4 

LDSYS4 

/CSYS4/ 

Table  9.  Format  for  Footprint  Parameter  Data  Scratch  File 


Each  unique  system  is  output  on  the  ITABL  file  in  the  following 


format ; 

VARIABLE 

LENGTH 

DE SCRIPT lew 

>n’YPE 

1 

MIRV  system  functional  type 

I DAT  A 

1 

MIRV  system  data  set  number 

"LENCTH"* 

1 

Length  of  footprint  pa*  -'ter  table 
for  this  system 

"TABLE"** 

LENGTH 

Footprint  paraineter  table 

*For  MTYPE=1, 

LENGTH  is 

LLNGDAT;  MrYPE=2,  LENGTH  is  LSHTDAT ; 

m'YPE-3,  LENGTH  is  LPENDAT ; MrYPE=4,  LENGTH  is  LDSYS4  (see.  table  8). 

**For  MTYPE-1,  TABLE  < the  FCX)TDATA  conmon;  KrYPE=2,  TABLE  is  the 
SHRTDAf  common;  ffT  ."E=»3,  TABLE  is  the  PENADD  and  FOOTDATA  commons; 
KrYVE-4,  TABLE  1 che  CSYS4  common  (see  table  8). 


Subroutine  SETDATA 
(Part  1 of  2) 


2.6.8  Subroutlae  TABLINPT 

PURPOSE : This  subroutine  reads,  prints,  and  saves  all  -•« 

Input  data. 

ECTRY  POINTS:  TABLINPT 

FORMAL  PARAMgfERS:  None 

COMMON  BLOCKS:  AXIS,  CSYS4,  EARTH,  FILABEL,  FILES,  FOOIDaiA, 

IFTPRNT,  ITP,  MYIDENT,  MYLABEL,  NOPRINT , PARAMK  i »> 
PENADD,  PRINT,  SHRTDATA,  TRSCRATCH,  TWORD,  UAMiS'' 

SUBROUTINES  CALLED:  ABORT,  AXES,  NUMGET,  SETDATA,  SETWRITE,  TERKIAW 

WRARRAY,  WRWORD 

CALLED  BY:  FOOTPRNT 

Method; 

This  routine  Initially  reads  and  stores  the  user  Input  print  request*  ai.d 
following  that  continues  to  read  the  footprint  parameter  tables  and  it  ore 
the  data  Into  coninon  block  /PARAMETER/  and  outputs  the  data  on  the  foot- 
print parameter  data  scratch  file  ITABL. 

Reading  and  storing  of  parameter  cards  follows  the  outline  as  given  in  th> 
Users  Manual,  Volume  IV.  A system  card  Is  read  followed  by  cards  that 
define  the  constants  used  for  describing  the  given  MIRV  system.  A blank 
system  card  terminates  the  reading  of  Input  data. 

A print  of  all  Inputs  follows  after  Input  completion. 

Subroutine  TABLINPT  Is  Illustrated  In  figure  21. 
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Subroutine  TRANSFER 


i'll  KPOSE : 

EliTRY  POIKTS; 
FORMAL  PARAMETERS; 


COMMON  BLOCKS: 
SUBROUTINES  CALLED; 
CALLED  BY; 


This  routine  transfers  blocks  of  data  from  the 
TMPALO  file  to  the  ALOCGR  file. 

INITRANS,  TRANSFER 

N - For  Entry  INITRANS,  the  logical  unit  number 
for  data  transfer. 

For  Entry  TRANSFER,  the  number  of  words  to 
be  transferred. 

ITP,  RAIDATA 

RDARRAY,  WRARRAY 

FOOTPRNT 


Method: 

These  two  entries  are  used  to  transfer  data  from  the  TMPALOC  file  to  the 
ALOCGRP  file. 

Entry  INITRANS 

The  formal  parameter  N is  the  logical  unit  number  of  the  file  to  which 
data  are  to  be  transferred.  This  unit  number  is  saved  in  variable 
IWRITE,  and  control  is  returned  to  the  calling  program. 

Entry  TRANSFER 

For  this  entry,  the  formal  parameter  N specifies  the  number  of  words  of 
data  that  are  to  be  read  from  file  ITP  (or  IREAD)  and  written  on  logical 
file  number  IWRITE.  The  words  are  merely  transferred  from  one  tape  to 
the  other.  TRANSFER  assumes  subroutine  SETWRITE  has  been  called  for 
file  IWRITE, 

Note:  The  length  of  common  /RAIDATA/  from  the  beginning  to  LRAID  is 
stored  in  LRAID.  Since  TRANSFER  uses  this  length  in  determining  the 
size  of  temporary  storage,  changes  in  common  /iAIDATA/  should  be  reflected 
in  this  variable. 

Subroutine  TRANSFER  is  illustrated  in  figure  22. 
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Figure  22.  Subroutine  TRANSFER 
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■6.10  Function  UPTODOWN 


t URPOSE;  This  routine  calculates  the  uprange-downrange 

ratios. 

ENTRY  POINTS:  UPTODOWN 

FORMAL  PARAMETERS;  I - System  type  Index 

R - Range  to  first  target  (nautical  miles) 

AZ-  Launch  azimuth  to  first  target 

COMMON  BLOCKS:  CSYS4,  FOOTDATA,  PENADD,  SHRIDATA 

SUBROUTINES  CALLED:  None 

CALLED  BY:  AXES 

Method; 

This  function  computes  the  uprange-to-downrange  distance  multiplier  for 
use  by  the  footprint  testing  subroutines.  It  uses  the  equations  displayed 
in  the  discussion  of  subroutine  TABLINPT.  This  function  merely  uses  a 
computed  GO  TO  statement  to  direct  processing  to  the  correct  equation. 

The  system  type  (formal  parameter  lO  determines  which  equation  is  used. 

The  remaining  formal  parameters  provide  the  data  for  the  multiplier  cal- 
culation. 

I Function  UPTODOWN  Is  Illustrated  In  figure  23. 
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Figure  23.  Function  UPTODOWN 


THE  CONTENTS  OF  THESE  PAGES  INTENTIONALLY  DELETED 
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SECTION  3.  PROGRAM  POSTALOC 


3.1  Purpose 

The  purpose  of  the  program  POSTALOC  Is  to  write  missile  and  bomber  deli- 
very plans  from  the  weapon- to- target  allocations  developed  by  the  alloca- 
tor, program  ALOC.  In  the  case  of  missiles,  this  Is  a simple  process 
since  the  missile  flight  plans  are  completely  determined  once  the  target 
and  launch  coordinates  are  known.  In  the  case  of  bombers,  the  process 
Is  more  complicated.  The  development  of  bomber  sorties  requires  the 
association  of  several  strikes  In  a single  sortie.  Moreover,  It  Is 
necessr-^  to  associate  each  sortie  with  specific  launch  and  recovery 
bases  and  to  select  a flight  profile  which  specifies  where  low-altitude 
capability  should  be  used. 

3.2  Input  Files 

POSTALOC  uses  two  input  files:  BASFILE  and  either  ALOCGRP  or  TMPALOC. 
BASFILE  is  written  by  program  PREPALOC.  If  MIRVs  are  present,  POSTALOC 
uses  the  ALOCGRP  file  which  contains  the  target  allocation  from  ALOC,  as 
rearranged  and  rewritten  by  programs  ALOCOUT  and  FOOTPRNT.  If  no  MIRVs 
are  present,  POSTALOC  uses  the  TMPALOC  file  which  is  output  by  program 
ALOCOUT . 

Subroutine  GETGROUP  reads  the  following  data  from  the  BASFILE: 

a.  Common  /MASTER/,  containing  basic  information  about  the  data 
base,  such  as  number  of  weapon  groups,  number  of  penetration 
corridors,  number  of  targets,  etc.  (See  table  13  for  a 
complete  description  of  this  and  all  other  common  blocks.) 

b.  Common  /FILES/,  containing  the  logical  unit  numbers  of  all 
the  files  in  the  Plan  Generator. 

c.  Ckxnmon  /C9/,  previously  connnon  /CORRCHAR/,  containing  the  gen- 
eral characteristics  of  each  penetration  corridor. 

d.  Copmon  /ASMTABLE/,  containing  the  characteristics  of  each  of 
the  ASM  types. 

e.  Commons  /PAYLOAD/  and  /PAYDATA/,  defining  the  payloads  of  the 
various  bomber  t3q>e8. 

f.  Common  /DPENREF/,  containing  the  coordinates  of  the  depenetra- 
tion and  refuel  points. 


‘ routine  GETGROUP  skips  subsequent  BASFILE  data  until  It  reaches  the 
1 of  Hollerith  Z's  which  marks  the  beginning  of  the  weapon  group  data. 

I then  reads  for  each  weapon  group  conmon/C?/,  previously  common  /GRPDATA/, 
'i-ntalnlng  basic  data  about  the  weapon  group  and  its  bases,  and  common 
/o!  '’TYPE/,  containing  type  characteristics  of  the  bomber  or  missile. 

The  reading  of  ALOCGRP  or  TMPALOC  for  missile  groups  takes  place  in 
subroutine  MISASGN.  For  bomber  groups,  subroutine  PRERAID  reads  common 
/STRKSUM/,  which  is  a summary  of  the  weapon  allocation  by  penetration 
corridor.  PRERAIO  makes  a call  on  subroutine  GENRAID  to  process  each 
penetration  corridor,  and  GENRAID  reads  from  the  ALOCGRP  common /C3/,  which 
contains  the  data  on  all  the  targets  assigned  through  the  given  penetration 
corridor. 

3.3  Output  File 

The  output  file  for  POSTALOC  is  the  STRKFILE,  the  format  for  which  is 
shown  in  tables  10  and  11.  Subroutine  OUTSRT  writes  one  record  for 
each  bomber  sortie,  describing  the  sortie  plan  and  characteristic,! , and 
subroutine  MISASGN  writes  the  missile  event  plans.  The  first  word  on  the 
STRKFILE  is  user's  input  TARFAC  (used  in  program  PLANOUT) ; missile  and 
bomber  plan  Immediately  follow. 

The  file  contains  one  record  for  each  bomber  and  missile  flight  plan 
generated.  In  the  case  of  bombers  which  refuel,  two  records  are  present: 
the  first  for  the  primary,  refueled  plan  and  the  second  for  the 
alternate  plan  to  be  used  in  the  event  of  a refuel  abort. 

The  end  of  data  on  the  file  is  signalled  by  a dummy  bomber  record  which 
I has  a group  number  of  999. 

3.4  Concept  of  Operation 

The  sortie  definitions  developed  by  POSTALOC  are  generated  by  weapon 
groups,  one  penetration  corridor  at  a time.  Tliey  consist  of  an  ordered 
list  of  the  targets  to  be  struck  by  each  sortie,  a specification  of 
which  targets  to  strike  with  ASMs , and  an  estimate  of  the  low-altitude 
range  allotted  tor  use  before,  versus  after,  the  first  t .get  (and  in 
any  legs  preceding  the  corridor  origin).  The  sortie  definition  does  not 
include  the  actual  coordinates  for  the  events.  nuis  for  the  bomber 
events  it  remains  for  PLANOUT  to  add  these  coordinates,  calculate 
release  points  for  ASMs,  and  compute  time  of  entry  into  defense  zones. 

Figure  38  shows  the  relationship  among  the  various  major  subroutines  in 
the  post-allocator.  The  arrows  in  the  figure  point  from  each  s\ibroutine 
to  the  subroutines  it  calls.  Thus  the  arrows  illustrate  simply  the 
calling  sequence  hierarch  . 
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the  density  of  strikes  on  the  two  sides  of  the  corridor  is  quite  different, 
the  flights  going  to  opposite  sides  are  kept  roughly  in  balance  by  compar- 
ing the  value  of  ((>  before  deciding  to  which  side  to  assign  the  next 
flight.  In  order  to  maintain  this  balance^  it  is  desirable  to  have  at 
least  five  or  six  flights.  Thus  if  there  are  four  or  fewer  bases,  two 
flights  are  sent  from  each  base. 


If  no  penetration  corridor  Is  defined,  the  launch  bases  are  processed 
in  order  of  their  absolute  values  of  iji  alternating  from  one  side  of  the 
coordinate  system  to  the  other,  in  an  attempt  to  make  the  sortie  paths 
approximate  as  closely  as  possible  the  direction  of  the  PHI  lines. 

Within  each  flight,  strikes  are  assigned  to  one  sortie  at  a time  working 
I through  the  list  of  unasslgned  strikes.  Processing  for  the  next  sortie 
In  the  flight  always  begins  with  the  first  unasslgned  strike  and  continues 
from  there.  Strikes  actually  assigned  to  each  sortie  are  always  arranged 
In  the  sortie  In  order  of  Increasing  RHO.  This  gives  the  Initial  time 
order  or  sequence  of  the  strikes  which  Is  used  as  a starting  point  for 
the  optimization  of  the  sortie. 

The  principal  subroutines  used  for  raid  generation  are:  PRERAID,  GENRAID, 
CORRPARM,  FLTROUTE,  NEXTFLT,  TGTASGN,  and  NOCORR. 

3.4.2  Setup  for  Sortie  Optimization.  Before  describing  the  optimization 
of  Individual  sorties,  It  is  necessary  to  describe  briefly  the  way  the 
Information  Is  structured  during  the  optimization. 

During  the  optimization  of  a sortie,  all  targets  relevant  to  the  sortie 
are  entered  Into  a detailed  computation  array.  This  array  (connon  /Cl/, 
previously  C'  .‘mon  /SORTYTGT/  — targets  for  this  sortie)  Includes  not  * 
only  the  targets  or  strikes  originally  assigned  to  the  sortie  but  also 
any  targets  omitted  by  prior  sorties  that  may  be  relevant  as  target  alter 
natives.  The  SORTTTGT  arrays  Include  not  only  the  Index  to  the  targets  li 
the  basic  target  list,  but  also  the  coordinates,  value,  and  defense 
characteristics  for  the  targets  together  with  temporary  scratch-pad  data, 
used  in  estimating  the  value  of  the  sortie.  The  SORTYTGT  arrays  have 
capacity  for  25  separate  target  entries. 

The  index  positions  in  the  SORTYTGT  array  that  do  not  contain  targets  are 
said  to  be  "available"  amd  are  listed  in  a file  named  "lAVAIL."  The 
remaining  positions  in  the  SORTYTGT  array  will  contain  points  of  the 
present  sortie  listed  in  a file  named  "IHIT"  and  possible  alternative 
targets  listed  in  a file  named  "lOMIT."  Actually,  positions  1,  2,  and  3 
of  the  SORTYTGT  array  are  reserved  for  nontarget  points  in  the  sortie. 
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it  ion  1 (lORIG  = 1)  is  used  to  represent  the  origin  of  the  penetration 
'dor.  Position  2 (IRECOVER  = 2)  is  used  to  represent  the  recovery 
point.  Position  3 (IDITCH  = 3)  is  used  to  represent  termination  of  the 
mi  '^sion . 

These  conventions  make  it  possible  to  define  a sortie  with  a simple  list 
of  numbers.  This  sortie  definition  is  contained  in  common  block 
/CURSORTY/  (current  sortie).  Table  12  illustrates  such  a sortie  definition. 


Table  12.  Example  Definition  of  Sortie  (Common  /CURSORTY/) 


1 

2 

3 

4 

5 

6 

7 

8 

IFLY 

1 

7 

7 

8 

5 

5 

2 

3 

IHIT 

1 

7 

-9 

8 

-5 

-4 

2 

3 

lOMIT 

6 

13 

I AVAIL 

10 

11 

12 

15 

14 

By  convention,  a negative  number  in  the  IHIT  list  indicates  an  ASM,  and  a 
positive  number  indicates  a bomb.  Thus  the  IFLY,  IHIT  table  illustrated 
represents  the  following  operations: 

a.  Leave  origin  of  corridor 

b.  Bomb  target  listed  in  position  7 

c.  From  the  vicinity  of  7 launch  an  ASM  at  9 

d.  Bomb  target  listed  in  position  8 

e.  Fly  near  5 to  hit  5 with  ASM 

f.  Strike  4 with  ASM  launched  from  vicinity  of  5 

g.  Recover 

h.  End  of  mission. 

The  omit  list  indicates  possible  alternative  targets  listed  in  positions 
6 and  13,  while  the  avail  list  indicates  five  empty  cells  tl\at  could  be 
used  if  needed. 
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Table 


BLOCK** 

/ASMTABLE/ 


/C9/  (previously 
/CORRCHAR/) 


13.  Program  POSTALOC  External  Common  Blocks 
(Part  1 of  9) 


INPUT  DATA  FROM  BASFILE 


VARIABLE  OR  ARRAY* 

DESCRIPTION 

ASM  characteristics 

IWHDASM(20) 

Warhead  index  » 

RANGEASM(20) 

Range  1 

R£LASM(20) 

Reliability  / for  ASMs 

CEPASM(20) 

CEP  1 

SPEEDASM(20) 

Speed 

Corridor  characteristics 

PCLAT(30) 

Latitude  of  corridor  point 

PCL0NG(30) 

Longitude  of  corridor  point 

RPLAT{30) 

Latitude  of  corridor  origin 

RPLONG(30) 

Longitude  of  corridor  origin 

ENTLAT(30) 

Latitude  of  corridor  entry 

ENTLONG(30) 

Longitude  of  corridor  entry 

CRLENGTH(30) 

Distance  from  corridor  entry  to 
corridor  origin 

KORSTYLE(30) 

Parameter  to  adjust  mode  of 
corridor  penetration 

ATTRCORR(30) 

High-altitude  attrition  per 
nautical  mile  unsuppressed 

ATTRSUPP(30) 

High-altitude  attrition  per 
nautical  mile  suppressed 

HILOATTR(30) 

Ratio  low-  to  high-altitude 
attrition  (less  than  I) 

*Parenthetical  values  indicate  array  dimensions.  All  other  elements  are 
single  word  variables. 

**Ordered  alphabetically,  not  by  position  in  core. 
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Table  13.  (Part  2 of  9) 


VARIABLE  OR  ARRAY 

DESCRIPTION 

/C9/  (cont.) 

DEFRANGE(30) 

Characteristic  range  of 
corridor  defense  (nautical  miles) 

NPRCRUEF(30) 

Number  of  attrition  sections 
this  corridor 

DEFDIST(30,3) 

Distance  of  each  precorridor  leg 

ATTRPRE(30,3) 

Attrition  in  each  precorridor  leg 

NDATA 

Number  of  words  in  common 
/C9/ 

/DPENREF/ 

Depenetration  and  refuel  points 

DPLINK(50) 

Depenetration  point  link 

DPLAT(50) 

Depenetration  point  latitude 

DP LONG (50) 

Depenetration  point  longitude 

REFLAT(20) 

Refuel  point  latitude 

REFL0NG(20) 

Refuel  point  longitude 

/FILES/ 

Logical  unit  number  and  maximum 
length  for  all  Plan  Generator 
files 

TGTFILE(2)* 

Target  data  file 

BASF1LE(2) 

Data  base  information  file 

MSLTIME(2) 

Fixed  missile  timing  file 

AL0CTAR(2) 

Weapon  allocation  by  targets  file 

TMPAL0C(2) 

Temporary  allocation  file 

AL0CGRP(2) 

Allocation  by  group  file 

STRKFIL(2) 

Strike  file 

*In  two-word  arrays,  first  word  is  logical  unit  number;  second  t'ord  is 
maximum  file  length  in  words.  Single  variable:i  me  logical  unit 
numbers . 
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Table  13.  (Part  3 of  9) 


BLOCK  VARIABLE  OR  ARRAY 

/FILES/  PLANTAPE* 

(cont.) 

/C7/  (previously 
/GRPDATA/ ) 

I GROUP 

NWPNS 

NVEHGRP 

I REG 

ITYPE 

I ALERT 

I REFUEL 

YIELD 

I START 

NBASE 

IBASEdSO) 

BUT(150) 

BLONGdSO) 

I PAY LOAD (150) 
VONBASE(150) 

/GRPTYPE/ 

ISIMTYPE 

RANGE 

CEP 

SPEED 

ALERTDLY 

NALRTDLY 

RANGEDEC 


* These  files  are  output  on  magnetic 


DESCRIPTION 
Detailed  plans  tape 

Characteristics  of  weapon  groups 

Group  number 

Number  of  weapons 

Number  of  vehicles 

Region 

Weapon  tyjie 

Alert  status 

Refuel  code 

Yield 

Starting  weapon  index 
Number  of  bases 
Base  index  immber 
Base  latitude 
Base  longitude 
Payload  index 
Number  on  base 

Characteristics  of  weapon  tv-pes 

Hollerith  type  name 

Range 

CF.P 

Speed  (For  missiles  replaced  ny 
minimum  flight  time) 

Alert  delay 

Nonalert  delay 

High/low  altitude  fuel  consumptio 
ratio  (For  missiles  replaced  by 
time  of  flight  factor) 

tape . 
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Table  13.  (Part  4 of  9) 


BlAHt 

VARIABLE  OR  ARRAY 

/CRPTYPli/ 

I CLASS 

(cent . ) 

NOPERSQN 

LCHINTVI, 

SPDLO 

SIMLUNCH 

RANGREF 

NMI’SITE 

IRF.P 

IRliCMODE 

IPF.NMODE 

FUNCTION 

/MAsn;R/ 


inn  ATT, 

IDUNTNO 

tSTDF.M 

NRTPT 

NCORRM 

NPPF.N 

NRF.COVER 

Nwn- 

NBNDRY 

NRF.G 

NTYPI; 

NC.ROUP 

NTOTBASF: 

NPAYIXIAD 

NASMTYPn 

nwiiivi’ypf; 


DESCRIPTION 
Weapon  class 
Number  per  squadron 

Launch  time  Interval 

Low-altitude  speed 

Number  of  simultaneous  launches 

Refueled  range  (for  missiles  replaced  by 
minimum  flight  range) 

Number  per  site 
Reprogramming  index 
Recovery  mode 
Penetration  mode 
Function  code 

Run  ID,  and  quantity  of  QUICK 
entities 

Date  of  run  initiation 

Run  identification  number 

Attacking  side 

Number  of  route  points 

Number  of  penetration  corridors 

Number  of  depenetration  corridors 

Number  of  recovery  bases 

Number  of  directed  refuel  areas 

Number  of  boundary  points 

Number  of  command  and  control  regions 

Number  of  capon  types 

Number  of  weapon  groups 

Total  number  of  bases 

Number  of  payload  tyiu's 

Number  of  ASM  types 

Number  of  warhead  types 
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Table  15.  (Part 

2 of  16) 

BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

/CONTROL/ 
(cont. ) 

KWALSRT 

Set  to  1;  not  currently  used 

/CORRIDOR/ 

CLAT 

Latitude  of  corridor  orientation 
point 

CLONG 

Longitude  of  corridor  orientation 
point 

PLAT 

Latitude  of  corridor  origin 
(route  point) 

PLONG 

Longitude  of  corridor  origin 
(route  point) 

ELAT 

Latitude  of  corridor  entry  point 

ELONG 

Longitude  of  corridor  entry  point 

CLENGTH 

Distance  from  entry  to  corridor 
origin 

KORPWR 

Power  of  Y vs.  X in  calculation 
of  PHI 

CORATTR 

Attrition  of  corridor  with 
unsuppressed  defenses  at  high 
altitude 

CORSATTR 

Attrition  of  corridor  at  high 
altitude  with  defenses  suppressed 

ATTRHILO 

Ratio  of  low-  to  high-altitude 
attrition 

RNGDEF 

Characteristic  range  of  defense 
operations 

NPREDEF 

Number  of  separate  defended  zones 
prior  to  corridor 

DISTDEF(3) 

Length  of  Ith  defended  zone 

PREATTR(3) 

Attrition  in  Ith  defended  zone 

/C4/ 

MYASGN(1030) 

Assignment  status  of  target 

/C5/ 

JTGT(ISTRK,  ISRT) 
with  ISTRK  = 10 

ISRT  •=  100 

Index  (IT)  to  target  for  ISTRKth 
strike  in  ISRTth  sortie  in  presem 
raid;  negative  for  ASMs 
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Table  15.  (Part  3 of  16) 


I 

• I 


m.')CK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

/C5/ 

DUDJ(30) 

Dummy  array 

(cont. ) 

- 

/C6/ 

MYBASE(IOO) 

Base  index  assigned  to  sortie 

NASGN(IOO) 

Number  of  targets  assigned  to 
sortie 

INDEXVEH(llO) 

Vehicle  index  assigned  to  sortie 

/CURSORTY/ 

NUMHIT 

Total  targets  hit  by  current 
sortie  plan 

NUMB 0MB 

Number  of  targets  bombed 

NUMASM 

Number  of  targets  hit  with  ASMs 

NHIT 

Number  of  sortie  points  --  NUMHIT 
+ (Origin,  Recovery,  Ditch) 

IFLY(13) 

SORTYTGT  index  to  Ith  route 
point  or  target 

IHIT(13) 

SORTYTGT  index  to  Ith  flight 
point  --  not  the  same  as  IHIT 
for  ASMs 

LAST PAY 

Sortie  position  of  last  paying 
sortie  point,  preditch 

LASTTGT 

Sortie  position  (=NUMHIT  +1) 
for  last  target 

NOMIT 

Number  of  targets  in  potential 
target  array  not  currently  in 
sortie 

t 

i ; 

IOMIT(25) 

SORTYTGT  index  of  Ith  omitted 
target 

NAVAIL 

Number  of  '•  '•.es  in  potential 

target  arrays  available  for  new 
t irgots 

• t 

^ i. 

IAVAIL(25) 

SORTYTGT  index  of  Ith  available 

, j 

space 

LKHITMT(25) 

Link  for  target  J to  sortie  hit 

l . 

A '• 

list  if  positive;  omit  list  if 

1.' 

* f- 

ITOLP 

negative 

Pointer  used  in  finding  lost 

V i' 

r • 

targets 
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3.6.12  Subroutine  GETGROUP 


PURPOSE : 


ENTRY  POINTS: 
FORMAL  PARAMETERS: 


COMMON  BLOCKS: 


To  read  the  BASFILE,  one  weapon  group  at  a time, 
and  call  PRERAID  or  MISAGN  to  process  the  bomber 
or  missile  group. 

GETGROUP 

None 


ARAYSIZE,  ASMTABLE,  BEGIN,  C4,  C7,  C9,  CONTROL, 

DEBUG,  DPENREF,  FILABEL,  FILES,  GRPTYPE,  IDUMP,  IFTNO 
IFTPRNT,  INPUTFL,  ISKIPTO,  ITP,  MASTER,  MYIDENT, 
MYLABEL,  NOPRINT,  PAYDATA,  PAYLOAD,  PCALL, 

PLANTYPE,  POSTHL,  PRINTOPT,  STRKSUM,  TWORD,  VAL, 
WAROUT 


SUBROUTINES  CALLED:  ABORT,  DEACTIV,  MISASGN,  OUTSRT,  PRERAID,  PRINTIT, 

PRNTF,  RDARRAY,  RDWORD,  SETFLAG,  SETREAD, 

SETWRITE,  SKIP,  TERMTAPE 

CALLED  BY:  POSTALOC 

Method : 

GETGROUP  calls  SETREAD  or  SETWRITE  for  each  input  or  output  file  to  be 
used  by  the  program;  and  reads  the  BASFILE  to  fill  common  blocks 
/MASTER/,  /FILES/,  /C9/,  /ASMTABLE/,  /PAYLOAD/,  /DPENREF/,  /PLANTYPE/, 
and  /PAYDATA/. 

Then  from  the  BASFIIE,  the  first  weapon  group  data  are  read  into  common 
/C7/,  and  the  weapon  type  for  the  first  group  are  read  into  common 
/GRPTYPE/. 

ICLASS,  a variable  in  /GRPTYPE/,  is  then  tested  to  see  whether  the  group 
is  missile  or  bomber.  If  it  is  a missile  group,  MISASGN  is  called;  if 
it  is  a bomber,  PRERAID  is  called. 

When  all  groups  have  been  processed,  IGBOUP  is  set  to  999  as  a flag,  and 
OUTSRT  is  called  to  write  a record  on  the  output  file  STRKFIU;.  The 
filehandler  terminator  TERMTAPE  is  then  called  for  all  files,  and  the 
subroutine  returns. 

Subroutine  GETGROUP  is  illustrated  in  figure  57. 
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3.6.19  Subroutine  OPTRAID 


PURPOSE: 

To  control  the  setting  up,  optimizing,  storing, 
and  writing  on  tape  of  the  sortie  plans,  for 
each  sortie  In  the  raid. 

ENTRY  POINTS: 

OPTRAID 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

C8,  DEBUG,  FLTPAS,  INDEX,  PCALL,  POSTHL,  PRINTOPT 

SUBROUTINES  CALLED: 

DUMPSRT,  GETSORT,  INITOPT,  OUTSRT,  PRINTIT, 

PRNTF,  SETFLAG,  SORTOPT,  TIMEME 

CALLED  BY: 

GENRAID 

Method: 

OPTRAID  controls  the  cycling  of  the  optimization  from  one  sortie  to  the 
next  within  a raid.  It  Is  called  by  GENRAID  after  FLTROUTE  and  TGTASGN 
have  completed  an  Initial  assignment  of  strikes  to  sorties  for  all 
sorties  In  the  raid  (or  subraid).  For  each  sortie,  OPTRAID  makes  calls 
on  the  appropriate  data  handling  routines  to  set  up  the  sortie  for  opti- 
mization, and  It  then  calls  SORTOPT  to  accomplish  the  optimization. 

Before  beginning  to  process  the  sorties  In  the  raid,  OPTRAID  makes  a call 
on  INITOPT.  The  purpose  of  this  call  Is  to  clear  out  the  SORTYTGT  arrays 
and  Initialize  them  for  the  new  raid. 

OPTRAID  makes  two  optimization  passes  over  the  sorties,  the  second  In 
reverse  order.  One  reason  for  the  double  pass  over  the  sorties  Is  to 
provide  a chance  for  valuable  targets  omitted  by  a sortie  to  be  picked 
up  by  sorties  on  either  side.  On  each  pass,  before  calling  SORTOPT, 
OPTRAID  calls  GETSORT.  GETSORT  reads  the  list  of  targets  for  the  sortie 
as  prepared  by  TGTASGN  and  Inserts  the  appropriate  targets  Into  the 
SORTYTGT  arrays.  GETSORT  also  sets  up  the  current  definition  of  the 
sortie  In  the  CURSORTY  array. 

SORTOPT  Is  then  called  to  optimize  the  sortie,  and  DUMPSRT  Is  called  to 
record  the  resulting  sortie.  Targets  that  remain  In  the  sortie  are 
cleared  out  of  the  SORTYTGT  array  and  are  recorded  for  the  skeletal 
representation  of  the  sortie  In  the  JTGT  array  of  common  block  /C5/. 

(The  Indices  for  ASM  targets  are  recorded  here  with  a minus  sign.) 
Similarly,  If  the  resulting  optimized  sortie  does  not  Include  recovery, 
this  Is  also  noted  In  the  skeletal  representation  (by  making  the  number 
assigned  NASGN  negative  In  common  /C6/.  Targets  that  are  omitted  from 
the  sortie  by  SORTOPT  are  not  cleared  out  by  DUMPSRT,  so  that  they  remain 
In  the  lOMIT  list  for  future  consideration. 
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'■’n  the  second  pass,  subroutine  OUTSRT  is  called  after  SORTOPT.  OUTSRT 
Ti cords  the  final  form  of  the  sortie,  including  specific  distances  at 
low  altitude,  on  the  output  STRKFILE  to  be  used  by  PLANOUT. 


..20  Subroutine  OUTPOTGT 


i OSE: 
i:NT.RY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED; 
CALLED  BY: 


To  remove  a potential  target  from  the  omit  list. 

OUTPOTGT 

None 

Cl,  C4,  C5,  C6,  CHGPLN,  CURSORTY,  DEBUG,  POSTHL, 
PRINTOPT 

None 

GETSORT 


Method: 

OUTPOTGT  receives  from  GETSORT  the  SORTYTGT  index  JDO  in  common  /CHGPLN/ 
for  the  tarjtet  to  be  removed  from  the  omit  list.  It  moves  the  index  from 
the  omit  list  to  the  AVAIL  list,  resets  the  values  of  LKHITMT  for  the 
targets  affected  by  the  move,  and  flags  the  target  as  available. 

Subroutine  OUTPOTGT  is  illustrated  in  figure  65. 
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f.2l  Subroutine  OUTSRT 

II'  OSE : To  write  the  final  bomber  sortie  plan  onto  the 

output  STRKFILE  for  input  to  PLNTPLAN. 

ENTRY  POINTS:  OUTSRT 


None 


BEGIN,  Cl,  C3,  C4,  C5,  C6,  C7,  C8,  CORRIDOR, 

CURSORTY,  DRECOV,  DEBUG,  FILES,  FLTPAS,  GRPTYPE, 

HOB,  IDUMP,  IFTNO,  IFTPRNT,  INDEX,  INITOPT, 

INPUTFL,  ITP,  OUTSORT,  PCALL,  PLANTYPE , POSTHL, 
PRINTOPT,  PRINTF,  SORTNO 

ABORT,  FINFLT,  GLOG,  PRINT IT,  SLOG,  WRARRAY 
GETGROUP,  OPTRAID,  REFABORT 

Method : 

All  of  the  data  to  be  included  in  the  output  record  are  assembled  in 
common  /OUTSORT/  to  be  written  out  as  a block  onto  the  STRKFILE.  A 
call  is  made  on  FINFLT,  which  is  a special  entry  point  in  FLTPLAN,  to 
produce  a final  sortie  plan.  This  final  plan  differs  from  previous 
plans  in  that,  if  there  are  defended  targets  past  the  point  at  which 
low  altitude  ran  out,  FINFLT  considers  flying  low  up  to  each  of  these 
defended  targets  (and  therefore  flying  high  earlier  in  the  route), 
checking  at  each  leg  to  see  if  the  value  of  the  sortie  is  increased. 

When  the  final  plan  is  obtained,  it  is  included  in  common  /OUTSORT/  as 
a series  of  happenings  with  associated  latitudes,  longitudes,  and  object 
numbers.  User's  input  TARFAC  is  written  on  the  first  word  of  STRKFILE. 

The  Sortie  Sequence  Number,  ISORTN,  is  updated  and  written,  WRARRAY  is 
then  called  to  write  common  /OUTSORT/.  Two  added  words,  distance  to 
recovery  and  origin,  are  written. 

During  processing  the  input  HOB  information  is  transferred  from  common 
/HOB/  to  array  MYHOB  in  common  /OUTSORT/. 

To  guarantee  all  bomber  sorties  fully  utilize  tneir  onboard  weapon  inventory, 
strikes  are  artificially  assigned  where  necessary.  This  is  conducted 
between  labels  71  to  10,000.  For  an  under-utilization  of  one  strike,  the 
first  target  is  assigned  to  be  hit  twice.  For  conditions  of  more  than  one 
weapon  not  assigned,  the  first  target  is  doubly  assigned  as  well  as  the 
second  and  so  on  as  necessary.  If  necessary,  conditions  may  exist  where 
the  first  (and  subsequent  targets)  may  require  multiple  assignments  arti- 
ficially generated. 

Subroutine  ^UTSRT  is  ' ustrated,  with  annotation,  in  figure  66. 


FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED: 
CALLED  BY: 
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1.27  Subroutine  SETFLAG 


7 1 ..I’OSE: 


To  read  print  request  control  cards  from  standard 
Input  data,  and  set  print  switches  as  requested. 


ENl'ilY  POINTS: 

FORMAL  PARAMETERS; 
COMMON  BLOCKS; 
SUBROUTINES  CALLED: 
CALLED  BY: 


SETFLAG 

None 

C7,  DATA,  FLAG,  INDEX,  PCALL,  WAROUT 
SLOG 

POSTALOC,  GENRAID,  OPTRAID,  GETGROUP 


Method ; 

The  first  time  it  is  called,  SETFLAG  reads  all  the  data  cards  into 
common  /DATA/.  A card  with  99999  in  the  first  field,  or  the  60th  card, 
will  terminate  the  read.  The  data  cards  consist  of  six  format  fields 
(110)  as  follows: 

Field  Contents 

1 Value  of  ICALL  at  desired  print  request  (print 
request  number) 

2 First  sortie  for  which  print  is  desired 

3 Last  sortie  for  which  print  is  desired 

4 OPTRAID  pass  (1  or  2)  for  which  print  is  desired 

5 Penetration  corridor  in  which  print  is  desired 

6 Weapon  group  in  which  print  is  desired 

A zero  in  any  field  implies  no  restriction  at  that  level;  i.e.,  a card 
with  36,  0,  0,  1,  3,  0 will  turn  the  print  at  ICALL  = 36  on  for  all 
sorties  on  the  first  pass  of  the  third  corridor  in  all  groups. 

SETFLAG  is  called  by  GENRAID  whenever  a new  corridor  i'=  juocessed,  and  is 
called  by  OPTRAID  whenever  a new  sortie  is  processed.  Ilius  o.i  each  call, 
it  tests  the  current  sortie,  pass,  corridor,  a d group  against  each  print 
request  in  common  /DATA/  and,  if  the  conditions  are  right,  it  activates 
the  print  by  setting  to  1 the  ICALLth  cell  of  the  IILAG  array  in 
common  /FLAG/. 

Subroutine  SETFLAG  is  illustrated  in  figure  72. 
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PURPOSE;  To  make  the  Initial  assignment  of  targets  to 

all  sorties  In  a flight. 

ENTRY  POINTS;  TGTASGN 

FORMAL  PARAMETERS;  None 

COWON  BLOCKS;  ARAYSIZE,  C2,  C3,  C4,  C5,  C6,  C8,  DEBUG,  FIXALL, 

INDEX,  IRESRCH,  PCALL,  POSTHL,  PRINTOPT,  TGTASIN, 

SUBROUTINES  CAT.TJD:  PRINTIT,  PRNTF,  TIMEME,  GLOG 

r.AT.T.F:D  BY:  FLTROUTE 


Method ; 

TGTASGN  Is  called  by  FLTROUTE  to  carry  out  the  actual  assignment  of 
strikes  to  each  sortie  in  a flight.  The  first  and  last  sortie  for  the 
flight  are  specified  by  FLTROUTE  (IFSTVEH  and  LSTVEH  in  common  /TGTASIN/) 
together  with  a flag(ISIDE)  which  notes  whether  targets  are  to  be  assigned 
from  the  left  side  of  the  corridor  toward  the  middle  or  from  the  right 
side  of  the  corridor  toward  the  middle.  For  each  side  of  the  corridor, 
TGTASGN  maintains  a pointer  to  the  first  unassigned  target  so  that  the 
scanning  of  targets  to  be  assigned  can  begin  with  this  target. 

Figure  74  illustrates  the  operation  of  TGTASGN.  For  each  new  sortie  the 
"target  limit"  (i.e.,  the  total  number  of  targets  that  should  be  assigned 
up  to  and  including  the  sortie)  is  increased  by  the  number  of  warheads  on 
the  sortie  (NWPV)  multiplied  by  the  average  number  of  strikes  per  warhead 
for  the  corridor  (TGTSPWHD).  Since  the  allocator  has  assigned  more  strikes 
than  it  has  weapons,  the  number  of  strikes  per  warhead  is  usually  a little 
more  than  1.0.  Tlierefore  (because  no  fractional  strikes  can  be  assigned) 
the  number  of  strikes  per  sortie  will  vary  and  an  occasional  sortie  will 
be  assigned  an  extra  strike  in  excess  of  the  available  warheads. 

Specific  strikes  are  then  selected  for  the  sortie,  beginning  with  the  first 
unassigned  strike  from  either  the  top  or  bottom  of  the  list  depending  on 
the  value  of  ISIDE,  until  the  target  limit  is  exceeded. 
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TGTASGN  receives  from  FLTROUTE  the  variables  IFSTVEH  and 
LSTVEH,  indicating  which  sorties  are  to  be  processed.  It 
initializes  variables  IFSTSRT  and  ILASTSRT  to  those  values 
and  uses  then  as  internal  markers. 

TGTLIM,  the  target  limit,  is  calculated  as  a floating  point 

number.  Therefore,  since  TGTSPWHD  is  usually  slightly  greater 

than  1.0,  occasionally  a sortie  will  be  assigned  more  targets 

than  it  has  warheads.  These  extra  targets  will  be  dropped  in 

the  sortie  optimization  and  will  be  considered  for  substitution 

in  other  sorties.  j 

I 

When  TGTASGN  is  entered,  IFSTGT  and  ILASTGT  are  set  at  the  first  i 

and  last  unassigned  target,  respectively.  MYASGN  is  initially  ' 

set  to  -1  for  all  targets.  As  soon  as  TGTASGN  "looks"  at  a ! 

target,  it  sets  MYASGN  to  0.  If  it  assigns  the  target  to  a • 

sortie,  it  sets  MYASGN  to  1.  Thus  the  first  unassigned  target  j 

may  be  0,  if  the  target  has  been  considered  previously  and  j 

rejected,  or  -1,  if  it  is  being  looked  at  for  the  first  time. 

The  list  of  targets  for  a given  sortie  are  listed  in  order  of 
RHO  as  an  initial  attempt  at  determining  the  flight  route  of 
the  sortie.  This  order  is  subject  to  change  by  EVALB  which 
does  a sequence  check  during  its  evaluation. 


Figure  74.  (Part  2 of  2) 
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ABSTRACT 


The  computerized  Quick-Reacting  General  War  Gaming  System  (QUICK)  will 
accept  input  data,  automatically  generate  global  strategic  nuclear  war 
I plans,  provide  output  summaries,  and  provide  input  tapes  to  simulator 

subsystems  external  to  QUICK.  QUICK  has  been  programmed  in  FORTRAN  for 
I use  on  the  CCTC  HIS  6000  computer  system. 

1 

I The  QUICK  Program  Maintenance  Manual  consists  of  four  volumes;  Volume 

I,  Data  Management  Subsystem;  Volume  II,  Weapon/Target  Identification 
Subsystem;  Volume  III,  Weapon  Allocation  Subsystem;  Volume  IV,  Sortie 
I Generation  Subsystem.  The  Program  Maintenance  Manual  complements  the 

other  QUICK  Computer  System  Manuals  to  facilitate  maintenance  of  the 
war  gaming  system.  This  volume.  Volume  IV,  is  in  two  parts  providing 
the  programmer/analyst  with  a technical  description  of  the  purpose , 
functions,  general  procedures,  and  programming  techniques  applicable  to 
the  programs  and  subroutines  of  the  Sortie  Generation  subsystem.  The 
associated  program  listings  which  are  dynamic  and  voluminous  are  not 
contained  herein.  However,  the  program  listings  may  be  obtained  by 
arrangement  with  the  CCTC  QUICK  Project  Officer.  Companion  documents 
are : 

a . USERS  MANUAL 

Computer  System  Manual  CSM  UM  9-77,  Volume  I 

Computer  System  Manual  CSM  UM  9-77,  Volume  II 

Computer  System  Manual  CSM  UM  9-74,  Volume  III 

Computer  System  Manual  CSM  UM  9-74,  Volume  IV 

Provides  detailed  instructions  for  applications  of  the  system. 

I b.  TECHNICAL  MEMORANDUM 

I Technical  Memorandum  TM  153-77 

Provides  a nontechnical  description  of  the  system  for  senior 
management  personnel. 
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SECTION  4.  PROGRAM  PLANOUT 


4.1  Purpose 

PLANOUT *8  sole  function  is  the  execution  of  three  separete  overlays; 
PLANOl,  PLNTPLAN  and  INTRFACE. 

The  first  overlay,  PLANOl,  permits  the  user  to  make  minor  changes  to  the 
plans  generated  by  QUlOv  ^thout  requiring  a new  allocation.  PLANOl 
gives  the  user  control  over  targets  assigned  to  a specific  sortie,  the 
weapon  offsets  time  of  delivery,  and  height  of  burst.  The  user  may 
change  plans  generated  by  POSTALOC  or  a recycling  of  PLANOUT. 

PLNTPLAN,  the  second  overlay,  accepts  output  from  PLANOl  (which  Includes 
the  user  target  changes)  and  finalizes  the  sorties  generated  by  the  pre- 
vious programs  in  plan  generation. 

The  last  overlay,  INTRFACE,  adds  information  to  the  output  of  PLNTPLAN, 
and  creates  tapes  to  be  used  in  programs  external  to  QUICK. 

4.2  Concept  of  Operation 

PLANOl  processes  sortie  change  cards  as  input  by  sortie  sequence  number, 
change  operation  codes,  and  target  designator  codes.  PLANOl  merges 
these  changes  with  Che  STRKFILE  or,  if  desired,  from  a previous  PLANOUT 
output  file.  The  output  Strike  Change  (STRKCHNG)  file  from  PLANOl, 
along  with  STRKFILE  will  be  used  in  PINTPLAN  (second  overlay)  to 
finalize  plans. 

The  sortie  change  cards  permit  the  user  to  make  minor  target  changes  on 
any  desired  sortie  but  not  requiring  a new  allocation.  Via  user  inputs, 
controls  may  be  exercised  over: 

o The  target  designator  (DESIG) , Input  time,  weapon  height  of 

burst,  Desired  Ground  Zero  (DGZ)  coordinates,  and  depenetration 
corridor 

o The  capability  to  add,  delete  or  replace  complete  strikes  by 
sortie  sequence  number  without  having  to  specify  times  and 
so  forth. 

PLNTPLAN,  the  second  overlay,  accepts  output  from  PLANOl  (which  includes 
the  user  target  changes)  and  finalizes  the  sorties  generated  by  the  pre- 
vious programs  in  the  Sortie  Generation  subsystem. 

PIUTPLAN  processes  the  bomber  and  missile  plans  given  it  on  the  STRKFILE 
by  program  POSTALOC  or  STRKCHNG  from  PLANOl,  and  a detailed  plan  Is  out- 
put via  the  PLANTAPE  which  reflects  the  plan  In  a form  more  suitable  for 


fiard  copy  output.  The  PLANTAPE  Is  used  as  Input  to  INTRFACE  and  program 
r.VALALOC.  Detailed  prints  of  the  final  plans  may  also  be  obtained  from 
PLNTPLAN.  Each  type  of  plan  (bomber,  missile,  and  tanker)  Is  bandied 
differently,  ^mong  the  processing  functions  performed  on  the  Input  bomber 
plans  are:  assigning  refuel  areas;  calculating  ASM  launch  points; 
determining  vhere  altitude  changes,  and  decoy  launch  points  should  occur; 
and  coordinating  launch  times  according  to  user  parameters. 

For  missiles,  launch  times  are  assigned  based  on  user-supplied  coordina- 
tion parameters.  Tanker  plans  are  generated  such  that  all  bombers  will 
be  serviced  as  required.  Finally,  PLNTPLAN  calculates  the  distances 
and  times  between  all  events  of  each  plan. 

The  last  overlay,  INTRFACE,  adds  information  to  the  output  of  PLNTPLAN, 
and  creates  tapes  to  be  used  in  programs  external  to  QUICK. 

INTRFACE  Is  one  of  the  two  special-purpose  processors  which  provide  an 
Interface  between  QUICK  and  other  computerized  simulation  systems  used 
in  strategic  war  gaming.  INTRFACE  and  the  TABLE  tiqie  extract  and 
reformat  data  from  QUICK -^^developed  files  and  output  data  which  are  used 
as  input  to  the  Event  Sequenced  Program  (ESP),  the  Nuclear  Exchange 
Model  (NEMO),  and  to  a CCTC  damage  assessment  system,  SIDAC  (Single 
Integrated  Damage  Analysis  Capability  System).  INTRFACE  does  not  pro- 
duce output  files  which  are  used  within  QUICK.  Specifically,  INTRFACE 
processes  data  contained  on  the  PLANTAPE  and  reformats  It  for  output  on 
two  tapes,  the  STRIKE  tape  (PTAPE) , and  the  sortie  specifications  tape 
(ABTAPE). 

4.3  Input  Files 

4.3.1  Input  to  Overlay  PLANOl.  Three  or  four  files  are  input  to 
PLANOl:  BASFILE,  STRKFILE,  SCHNGl,  and  TARFILE.  SCHNGl  refers  to 
PLANOl  Input  file;  SCHNG2  refers  to  PLANOl  output  file  (or  PLNTPLAN 
input),  A general  reference  to  STRKCHNG  (i.e.  when  discussing  formats) 
refers  to  SCHNGl  or  SCHNG2. 

The  STRKFILE  Is  the  output  of  POSTALOC,  and  contains  the  skeletal  plans 
for  each  bomber  and  missile.  Common  /OUTSRT/  contains  'le  input  bomber; 
common  /BLOCK/  contains  the  input  record  for  missiles.  The  end-of-file 
signal  is  a dummy  bomber  record  with  a group  number  of  201.  The  first 
word  on  the  file  contains  parameter  TARFAC.  This  is  an  input  to 
POSTALOC  and  its  same  value  is  required  for  any  sortie  add  option  in 
PLANOl. 

A SCHNGl  file  may  or  may  not  exist  and  if  it  does,  it  may  not  be  used 
(via  input  option).  This  file  is  an  output  from  a previous  PLANOUT  run 
and  contains  indicators  for  any  sortie  changed  from  the  STRKFILE.  If, 
for  a given  sortie,  th'  indicator  is  positive  a record  similar  to 
STRKFILE  exists  and  1'  read  Into  common  /OUTSRT/  or  /BLOCK/  thus 
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destroying  the  STRKFILE  record.  Additional  change  information  is  read 
into  common  /OUTSRA/.  By  using  SCHNGl,  changes  may  be  made  upon 
changes  without  requiring  the  input  cards  that  generated  any  of  the 
past  updates.  Also,  SCHNGl  contains  all  those  missile  sorties  that  mav 
ha^  been  added  and  do  not  exist  on  STRKFILE.  An  end-of-file  is 
indicated  by  a sortie  sequence  number  greater  than  99999. 

The  TARFILE,  created  in  program  PLANSET,  contains  LAT,  LONG,  INDEXNO, 

TASK,  CNTRYLOC,  TARDFHl,  and  FLAG  for  each  target  designator  code. 

These  parameters  are  required  if  a target  is  added  or  replaces  an  old 
one.  This  file  is  accessed  by  hash  code  on  the  DESIG  of  the  new  target. 

Header  Information  is  read  into  common  /TARLIST/ . 

BASFILE,  created  by  program  PREFALOC,  provides  necessary  information  if 
missiles  are  to  be  added  as  a new  sortie  and  bomber  corridor  parameters 
are  read  for  low  altitudes  and  attrition  recalculation.  Data  is  read 
into  common  /BASEF/,  /CORRCHAR/,  and  /DPENRE/. 

4.3.2  Input  to  Overlay  PLNTPLAN.  Four  files  are  input  to  PLNTPLAN: 
the  STRKFILE,  STRKCHNG,  BASFILE,  and  MSLTIME  file. 

The  STRKFI1£  is  the  output  of  program  POSTALOC,  and  contains  the 
skeletal  plans  for  each  bomber  and  missile.  Common  block  /OUTSRT/ 
contains  the  input  bomber  record;  common  /BLOCK/  contains  the  input 
record  for  missiles.  The  end-of~file  signal  is  a dummy  bomber  record 
) with  a group  number  of  999.  POSTALOC  user  input  TARFAC  is  the  first 
word  on  STRKFILE. 

The  Input  event  list  In  conmon  /OUTSRT/  includes  all  targets,  whether 

bomb  or  ASM.  It  always  begins  with  the  corridor  origin  route  leg,  and 

ends  with  the  Input  event  DEPEN,  LAND,  or  DIVEMISL  (If  an  air-breathing  { 

missile),  depending  on  whether  the  mission  Is  successful  or  aborts.  j 

Table  16  lists  the  admissible  Input  events  by  type,  and  Indicates  what 

Information  In  the  list  Is  relevant  for  each  type. 


335  CH*3 


H 
[ ' 


Table  16.  List  of  Admissible  Input  Events  by  Type 
and  Information  Relevant  to  Each 


TYPE  OF 
HAPPENING 

LAT. 

. LONG 

PLACE 

WEAPON  OFFSET 

LAT.,  LONG. 

DOGLEG 

Y 

N 

N 

DROPBOMB 

Y 

Target  Index 

Y 

AIM  ASM 

Y 

Target  Index 

Y 

DEPEN 

N 

Depenetration 
Corridor  Index 

N 

LAND 

N 

N 

N 

DIVEMISL 

N 

N 

N 

Y = relevant 

N = not 

relevant 

Bomber  sorties  are  identified  uniquely  by  sortie  number,  group  index,  and 

corridor  index  together.  Missiles  are  identified  by  index  number.  ^ 

• 

PLANOl  creates  the  STRKCHNG  by  merging  the  STRKFILE  with  target  changes 
supplied  by  the  user.  The  file  consists  of  a header  record  followed  by 
a short  block  for  each  sortie  containing  the  sortie  sequence  number  and 
an  indicator  to  show  whether  the  STRKFIIE  has  been  changed.  If  a change 
exists,  the  altered  plan  follows;  and  common  /OUTSRT/  or  /BLOCK/  is 
redefined.  Additional  change  plan  information  is  read  into  common 
/OUTSRA/, 

STRKCHNG  contains  indicators  for  all  sorties  on  the  STRKFILE  plus  missile 
sorties  completely  added  by  the  user.  The  end- if- flic  signal  is  a sortie 
sequence  number  greater  than  99999. 

The  BASFILE,  created  by  program  PREPALOC,  provides  such  information  as 
I corridor,  payload,  weapon,  and  tanker  data.  It  is  from  this  file  that 
PLNTPLAN  retrieves  the  data  required  to  fill  the  following  coinnon  blocks: 
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/MASTER/ 

/FILES/ 

/OORRCHAR/ 

/PAYDATA/ 

/ASMTABLE/ 

/PAYLOAD/ 

/DPENREF/ 

/PLANTYPE/ 

/WPNTYPEX/ 

/WPNGRPX/ 

/NAVAL/ 

I /C9/  (Variables  corresponding  to  /CHARTER/,  and  /HAPPEN/ 

In  other  QUICK  programs) 

/C7/ 

The  MSLTIME  file,  created  by  program  ALOC,  contains  a five-word  record 
for  each  fixed  missile  (i.e.,  each  missile-delivered  weapon).  It  is 
read  into  array  MSLFIL  of  common  block  TIMELINE.  If  there  are  no  fixed 
missile  assignments  in  the  current  plan,  it  consists  simply  of  an  end- 
of-file  record. 

4.3.3  Input  to  Overlay  INTRFACE.  The  QUICK  developed  files  used  by 
INTRFACE  are  the  BASFI1£  prepared  by  program  PREPALOC  and  the  PLANTAPE 
I output  by  overlay  PLNTPLAN.  The  BASFIU:  is  used  to  obtain  weapon  and 
vehicle  type  data  which  are  not  included  on  the  PLANTAPE.  The  PLANTAPE 
provides  detailed  Information  about  missile,  bomber,  and  tanker  plans 
prepared  by  the  QUICK  Plan  Generator. 

4.4  Output  Files 

4.4.1  Output  Files  from  Overlay  PLANOl.  SCHNG2  is  the  only  generated 
output.  STRKFILE  and  SCHMG2  are  used  in  PLNTPLAN  to  generate  the 
finalized  plans.  By  saving  spill  tapes  at  the  completion  of  PLANOUT, 
SCHNG2  may  be  recycled  for  additional  sortie  target  changes  in 
subsequent  runs. 

SCHNG2  file  consists  of  a header  record  (table  17)  followed  by  a short 
block  for  each  sortie  containing  the  sortie  sequence  number  and  an 
indicator  to  show  whether  the  sortie  has  been  changed.  If  the  sortie 
has  been  changed,  a record  follows  similar  to  a STRKFILE  record  for  the 
type  of  sortie  but  with  arrays  that  contain  additional  information  con- 
cerning how  a target  has  been  changed.  Tables  18  and  19  show  the  bomber 
and  missile  records  on  SCHNG2. 
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1-30 

31-60 

61-90 

91-120 

121-210 

211-240 

241-270 

271-300 

301-330 

331-360 

361-390 

391-420 

421-510 

511-600 

601 

602-631 

632-721 


1 


Table  17.  STRKCHNG  File  Header  Record  I 

DESCRIPTION 

Latitude  of  corridor  point 
Longitude  of  target  point 

Defense  zone  in  which  corridor  origin  is  located 
Latitude  of  corridor  origin 

Average  attrition  per  distance  in  Jth  corridor,  1th  leg 
Distance  from  corridor  entry  to  corridor  origin 
Parameter  to  adjust  mode  of  corridor  penetration 
High-altitude  attrition  per  nautical  mile  unsuppressed 
High-altitude  attrition  per  nautical  mile  suppressed 
Ratio  low-to-high  altitude  attrition 

Characteristic  range  of  corridor  defense  (nautical  miles) 

Number  of  attrition  sections  this  corridor 
Distance  in  each  precorridor  leg 
Attrition  in  each  precorridor  leg 
Number  of  words  in  common  /CORRCHAR/ 

Total  precorridor  defended  distance,  corridor  J 

Order  of  importance  of  attrition  in  Jth  corridor,  Ith  leg 
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4.4.2  Output  Files  from  Overlay  PLNTPLAN.  The  principal  output  of 
I PLNTPLAN  is  the  PLANTAFE  containing  the  boinber,  missile,  and  tanker 
I plans  for  use  by  overlay  INTRFACE  and  program  EVALALOC.  The  admissible 
events  for  the  PLANTAPE  record  are  those  listed  in  table  20. 


j 

J 


j 

I 

I 

1 
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Table  20.  Bomber  Events  Recognized  by  PLNTPLAN 

EVENT  EVENT  NAMES  USED  IN 


TYPt,  OF  EVENT 

TYPE 

PLACE  INDEX 

/EVENTS/ 

ouTPi/r  Print 

Launch 

2 

Base  Index 

LAUNB 

LAUNCH  B 

Refuel 

4 

Refuel  Index 

LEREFUEL 

REFUEL 

Local  Attrition  or 
Drop  Bomb 

8 

Target  Index 

LOCLATTR 

DROPBOMB 

Launch  ASM 

14 

ASM  Type 

LAUNASM 

LAUN  ASM 

ASM  Target 

-- 

Target  Index 

-- 

ASM  TGT 

Launch  Decoy 

15 

* 

LAUNDCOY 

LAUNDCOY 

Change  Altitude 

17 

1 for  Go  High, 

0 for  Go  Low 

LOHI 

CHANGALT 

Recover 

16 

Recovery  Base  Index 

LANDHO 

RECOVER 

Abort 

13 

* 

LABORT 

ABORT 

Enter  Refuel 

11 

Refuel  Area  Index 

LENTEREF 

ENTERREF 

Leave  Refuel 

12 

* 

LEAVEREF 

LEAVEREF 

Go  High 

18 

IGOHI 

GO  HIGH 

Go  Low 

19 

* 

IGOLOW 

GO  LOW 

Dogleg 

20 

* 

LEGDOG 

DOGLEG 

* Place  index  not  applicable 
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PLANTAPE  is  retrieved  from  the  arrays  of  common  blocks  /INDATA/,  /DINDATA/, 
I and /DINDT2/  for  bombers  and  tankers.  For  missiles,  it  is  written  from 
variables  within  comnon  /BLOCK/.  The  tape  format  for  these  records  Is 
shown  In  tables  26  through  29.  The  end  of  this  first  file  (containing 
missile,  bomber  and  tanker  plans)  Is  sign  signaled  by  a Jummy  record 
containing  25  words  of  zeros,  followed  by  an  END  FITE  mark. 

The  second  file  on  the  PLANTAPE  contains  the  refuel  area  table.  Th<i 
first  word  Is  the  number  of  refuel  areas  (NTlF) . Then  follow  NRF  word 
pairs  containing  the  latitude  and  longitude  of  each  refuel  area. 

The  PLANTAPE  Is  written  using  standard  FORTRAN  unformatted  WRITE  state- 
ments rather  than  the  fllehandler  subroutines. 

Tills  record  precedes  tb : Launch  event  for  the  first  consecutively  launched 
vehicle  from  a base  oT  weapons  having  a time-dependent  destruction  before 
launch  pro'^abillty. 
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CONTENTS  OF  THIS  PAGE  INTENTIONALLY  DELETED 
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Table  26,  Format  of  PLANTAPE  Record  (Bomber  Plans) 
(Part  1 of  2) 


Header  Block; 

WORD 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19-20 

21-22 

23 

24 

25 

26 


DESCRIPTION 

Sortie  Sequence  Number 
Side 

Group  number 

Penetration  corridor  number 
Bomber  sortie  number 
Base  Index  niimber 
Vehicle  Index  number 
ICLASS  - 2 
Weapon  type 
Launch  region 
Alert  status 
Payload  Index 

Depenetration  corridor  number 

Total  number  of  bomber  events  In  table 

Number  of  planned  bomber  events  (l.e., 
excluding  Refuel/Abort  missions  events) 

Available  low-altitude  range  In  precorridor 
legs 

Available  low-altitude  range  before  first 
target 

Available  low-altitude  range  after  first 
target 

Lower  plot  markers  j r cortle 
Upper  plot  markers  for  sortie 
Weapon  type  name  (ISIMTYPE) 

Bomber  type  (Plan  Generator  type) 

Bomber  function  code 

i^umber  of  targets  In  total  plan  (set  to  4HLAST 
after  last  good  record  as  an  end  sentinel) 


I 

i 


i 


L 


J 
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Table  31.  (Part  2 of  3) 


CARD  VARIABLE 

COLUMN  NAME 

15-19  IDES 


INFORMATION 


Location  identifier  for 
given  operation  code. 
The  contents  column 
shows  the  entry  associ- 
ated with  the  following 
codes. 

lOP-  1 


- 2 
= 3 

- 4 

- 6 
- 7 
= 8 
= 9 
-10 
»11 
-13 


20-25 

LAT 

Latitude  at  end  of  leg 

26-33 

LON 

Longitude  at  end  of  leg 

34 

MODE 

Mode  of  operation 

35 

Zero 

36-41 

ICUMTIME 

Time  of  event 

42 

ISOUTH 

Southern  Latitude 
indicator 

CCTiTENT 


Base  index 
INDEXNO 
Area  number 
Zeros 
Zeros 
00001 

Target  DESIG  Code 
00001 
00001 

Target  DESIG  Code 
Target  DESIG  Code 
Recovery  base 
Name  if  bomber 

(Degrees,  minutes, 
seconds) 

(Degrees,  minutes, 
seconds) 

1 - High  altitude 

4 - Low  altitude 

0 

Hours,  minutes, 
and  seconds 

5 if  southern 
latitude,  blank 
if  not 
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Table  31.  (Part  3 of  3) 


CARD 

COLUMN 

VARIABLE 

NAME 

INFORMATION 

CONTENT 

43-44 

ISCP 

Sequential  warhead 
number 

01-10 

45 

Zero 

0 

46 

Blank 

47-49 

CAZIM 

Launch/Back  Azimuths  In 
degrees 

000  - 360 

50 

lECM 

ECM 

0 - Off 

1 - On 

51 

Zero 

0 

52-53 

IPARl 

Warhead  type 

01-99 

54 

IffiCX 

Height  of  burst  (HOB) 

0 - Ground 

55-66 

Zeros 

1 - Air 

57-58 

IPLNETYP 

Plane  type  code 

01-99 

59-60 

ICNTRY 

Code  for  country  of 
target  location 

2 Alpha 

61 

IREGB 

Region  code 

1-9 

62 

Blank 

63-64 

ITASK 

Target  task  code 

2 Alpha 

65-67 

IHXXX 

Height  of  burst 
(hundreds  of  feet) 

000-999 

68-72 

LYIELD 

YIELD  (MT) 

00001-99999 

73-75 

JCEP 

000-999 

CEP  (100 's  feet) 

76-77 

ICOWN 

Code  for  country  of 
target  owner 

2 Alpha 
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Table  32.  PLANOl,  External  Comnon  Blocks  (Part  1 of  5) 


INPUT  DATA  FROM  BAS FILE 


VARIABLE  OR 

BLOCK* 

ARRAY** 

DESCRIPTION 

/BASE?/ 

BASFILE  parameter 

MS  IDE 

SIDE(BLUE=1;  RED=2) 

TOFMIN(IOO) 

Minimum  time  of  flight  for 
missile  type  (hours) 

CMISS(IOO) 

Time  of  flight  factor  for 
missile  type 

RNGMIN(IOO) 

Minimum  range  for  missile 
type.  Used  in  calculating 
time-of-f light  (nautical 
miles) 

IREG(250) 

Region  for  weapon  group 

ITYPE(250) 

Weapon  type  for  weapon  group 

RANGEASM(40) 

ASM  range 

IASM(20) 

ASM  index 

/CORRCHAR/ 

Corridor  characteristics. 

PCLAT(30) 

Latitude  of  corridor  point 

PCLONG(30) 

Longitude  of  corridor  point 

RPLAT(30) 

Latitude  of  corridor  origin 

RPLONG (30) /ATPDST(30, 1)*** 

Longitude  of  corridor  origin 

ENTLAT (30) /ATPDST (30 , 2) *** 

Latitude  of  corridor  origin 

ENTLONG (30) /ATPDST (30,3) *** 

Longitude  of  corridor  entry 

CRLENGTH(30) 

Distance  from  corridor  entry 
to  corridor  origin 

K0RSTYLE(30) 

Parameter  to  adjust  mode  of 
corridor  penetration 

ATTRC0RR(30) 

Hlgh-altltude  attrition  per 
nautical  mile  unsuppressed 

ATTRSUPP(30) 

High-altitude  attrition  per 
nautical  mile  suppressed 

HILOATTR(30) 

Ratio  low-  to  high-altitude 
attrition  (less  than  1) 

* Ordered  alphabetically,  not  by  position  In  core. 

**  Parenthetical  values  Indicate  array  dimensions.  All  other  elements 
are  single-word  variables. 

***if  STRKCHNG  Is  read,  arrays  RPLONG,  ENTLAT,  ENTLONG  are  replaced  by 
ATPDST(30,3);  the  average  attrition  per  distance  in  Jth  corridor,  Ith 
leg. 
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Table  32. 

(Part  2 of  5) 

BLOCK 

VARIABLE  OR 

ARRAY 

DESCRIPTION 

/CORRCHAR/ 

(cont.) 

HILOATTR(30) 

Ratio  low-  to  high-altitude 
attrition  (less  than  1) 

DEFRANGE(30) 

Characteristic  range  of 

corridor  defense  (nautical 
miles) 

NPRCRDEF(30) 

Number  of  attrition  sections 
this  corridor 

DEFDIST(30,3) 

Distance  of  each  precorridor 
leg 

ATTRPRE(30,3) 

Number  of  words  in  common 
/CORRCHAR/ 

/DPENREF/ 

DPLAT(50) 

Depenetration  latitude 

DPLONG(50) 

Depenetration  longitude* 

RCBLAT(50,4) 

Recovery  base  latitude* 

RCBL0N(50,4) 

Recovery  base  longitude* 

INDCAP(50,4) 

Recovery  base  capacity* 

/FILES/ 

Logical  unit  number  and  maximum 
length  for  all  Plan  Generator 
files. 

TGTFII£(2)** 

Target  data  file 

BASFI1£(2) 

Data  base  information  file 

MSLTIME(2) 

Fixed  missile  timing  file 

AL0CTAR(2) 

Weapon  allocation  by  targets 
file 

TMPAL0C(2) 

Temporary  allocation  file 

AL0CGRP(2) 

Allocation  by  group  file 

STRKFILE(2) 

Strike  file 

PLANTAPE*** 

Detailed  plans  tape 

* Indexed  for  each  of  ' >ur  bases  assigned  to  each  depenetration  point. 

**  In  two-word  arrays,  first  word  is  logical  unit  number;  second  word  is 
maximum  file  length  in  words.  Single  variables  are  logical  unit  numbers. 
***These  files  are  output  on  magnetic  tape. 
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Table  32.  (Part  3 of  5) 
INPUT  DATA  FRCM  CARDS 


VARIABLE  OR 

BjaSP ' array 


DESCRIPTION 


/CARDS/ 

ICODE 

IHOB 

ISTYP 

IDCC 


lASM 

IRAC 

IAS 

ISSN 

IDESIGl 

IDESIG2 

TCHANGE 

CALOFF 


DLATOF 


DLONGOF 


TLUCH 


Sortie  change  card  parameters 
Operation  code  (A*add  missile, 
Ochange,  I»lnsert,  E=end) 
Height  of  burst  (A=air,  G*ground 
Sortie  type  (blank=mlsslle, 
B*bomber) 

Depenetration  corridor  change 
(blank^no  change;  otherwise 
corridor  number) 

Bomber  weapon  launch  type 
(blank-bomb,  A-ASM) 

Recalculate  attrition  for  bomber 
(blank-yes,  N-no) 

Not  used 

Sequential  Sortie  Number 
Target  designator  reference 
Designator  for  new  target  (blank 
for  delete) 

Time  change  (minutes) 

If  blank,  desired  offsets  are 
defined  by  parameters  DLATOF 
and  DLONGOF.  If  equals  to 
'C',  parameters  DLATOF  and 
DLONGOF  define  the  actual 
ground  zero.  For  this  case, 
the  offsets  are  calculated 
Internally. 

Desired  ground  zero  latitude 
offset  (SOths  of  nautical 
mile)  if  parameter  CALOFF 
is  blank.  Desired  ground 
zero  latitude  (floating 
degrees)  if  paramter  CALOF 
equals  'C.  If  'ZERO’,  off- 
sets are  set  to  numeric  zero 
regardless  of  CALOFF  entry. 
Longitude  offset.  Identical 
definition  as  given  for 
latitude. 

Time  of  launch  (minutes) 
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VARIABLE  OR 
.■  '.OCR  ARRAY 

/CARDS/  DLATOF 

(cont. ) 

DLONGOF 

TLUCH 

ILR 

lALS 

IMTI 

IPI 

IGI 

ISI 

LATD 

LATM 

LATS 

LATR 

LONGD 

LONQM 

LONGS 

LONGR 

ISAL 

JCARD 

NOLD 


DESCRIPTION 

Desired  ground  zero  laiEltude 
offset  (50ths  of  nautical 
mile) 

Longitude  offset 

Time  of  launch  (minutes) 

Launch  region 
Alert  status 

Missile  type  Index  (plane  type) 
Payload  Index 
Group  Index 
Site  Index 

Weapon  site  latitude  (degrees) 
Weapon  site  latitude  (minutes) 
Weapon  site  latitude  (seconds) 
Weapon  site  latitude  reference 
(N“North,  S“South) 

Weapon  site  longitude  (degrees) 
Weapon  site  longitude  (minutes) 
Weapon  site  longitude  (seconds) 
Weapon  site  longitude  reference 
(E“East,  V^West) 

Salvo  number 

Card  number  (stored  internally) 
Save  for  last  sortie  number 


INPUT  (OR  OUTPUT)  FRCTl  STRKCHNG  FILE 


/CORRCHAR/ 


STRKCHNG  header  (see  /CORRCHAR/ 
Input  from  BASFILE) 


/CORRCl/  STRKCHNG  header;  plans  follow 

TDEFDST(30)  Total  precorr^ior  defended  dis- 

tance 

IMPRTD(30,3)  Or-^er  of  importance  of  attrition 

fire  nautical  mile 

/CONTRl/  File*  control  parameter  (fully 

described  'inder  Internal 
Common  Block  Section) 

IREAD(2)  Sortie  Sequence  Numbe”  and 

STRKCHNG  indicator.  Bomber  or 
missile  plans  follow  if  indi- 
cator la  nonzero;  else  STRK’  " 
plans  are  >ised  for  this  sortit 
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T«ble  32.  (Part  5 of  5) 


VARIABLE  OR 

,!  BLOCK 

ARRAY 

DESCRIPTION 

' /BLOCK/ 

LOCK/BLOCK(320) 

Missile  plan;  identical  to 

1 

1 

' 

STRKFILE  record  (see  STRKFILE 
format) 

/OUTSRA/ 

. 

H0BM(18) 

Change  arrays  for  missile  plans 
Height  of  burst  information 

1 

DLTAMdS) 

Change  in  time  information 

INDRN(18) 

Change  indicator  for  targets 

i: 

IHOBM 

Height  of  burst  flag 

ICTIHEM 

Change  time  flag 

/OUTSRT/ 


/OUTSRA/ 

DISTE(IO) 

HOB (10) 

DLTA(IO) 

INDR(IO) 

lOHOB 

ICTIME 


Bomber  plan;  Identical  to  STRKFILE 
record  (see  STRKFILE  format) 

Change  arrays  for  bomber  plans 
Effective  distance  between 
targets 

Height  of  burst  information 
Change  in  time  information 
Change  indicators  for  targets 
Height  of  burst  flag 
Change  time  flag 


/BEGIN/ 

/BLOCK/ 


/OUTSRT/ 


INPUT  DATA  FROM  STRKFILE  FILE 

TARFAC  TARFAC  used  in  POSTALOC.  Bomber 

and  missile  plans  follow 

LOCK/BLOCK(320)  Contains  the  input  missile  record 

from  STRKFILE  (see  STRKFILE 
format) 

---  Contains  the  input  bomber  record 

from  STRKFILE  (see  STRKFILE 
format) 


i 

j 


INPUT  DATA  FROM  TARFILE  FILE 


/TARLIST/ 

TARLIST(3516) 

SCAT(7771) 

MAXPPG 

MXSCAT 


Target  designator  location 
indicator 

Storage  array  for  given  page 
of  TARFILE 
Scatter  index  array 
Maximum  number  of  pages 
Length  of  scatter  array 
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Table  33.  Overlay  PLNTPLAN  External  Conmon  Blocks 
(Part  1 of  6) 

INPUT  DATA  FROM  BASFILE 


BLOCK  VARIABLE  OR  ARRAY* 

ASMTABLE  IWHDASM(20) 

RANGEASM(20) 
RELASM(20) 
CEPASM(20) 
SPEEDASM(20) 

CORRCHAR  PCLAT(30) 

__  PCLONGC30) 

RPLAT(30) 
RPLONG(30) 
ENTLAT(30) 
ENTLONG(30) 
CRLENGTH(30) 

KORSTYLE(30) 
ATTRC0RR(30) 

ATTRSUPF(30) 

HILOATTR(30) 

DEFRANGE(30) 

NPRCRDEF(30) 

DEFDIST(30,3) 
ATTPRPE(30,3) 

NDATA 


DESCRIPTION 

Warhead  index 
Range 

Reliability 

CEP 

Speed 

Latitude  of  corridor  point  I 
Longitude  of  corridor  point  I 
Latitude  of  corridor  I origin 
Longitude  of  corridor  I origin 
Latitude  of  corridor  I entry 
Longitude  of  corridor  I entry 
Distance  from  corridor  I entry 
to  corridor  I origin 
Power  of  y versus  x 
))igh-al  titude  attrition  per 
nautical  mile  unsuppressed 
Uigh-aJ t i l ude  attrition  per 
nautical  mile  suppressed 
Ratio  low-  to  high-altitude 
attrition  (less  than  1) 
Characteristic  range  of  corridor 
defense 

Number  of  attrition  sections 
this  corridor 

Distance  of  attrition  section 
Attrition  in  this  attrition 
section 

Total  number  words  in  common 
/CORRCHAR' 


DELTA  LCHINTVL(75) 

SIMLUNCH(75) 
ISAL(18) 


Launch  Interval  according  to 
missile  type  (hour) 

Number  of  simultaneous  launches  for 
salvoed  missile  types. 

Missile  salvo  number 


*Parenth  t>cal  values  Indicate  array  dimensions.  All  other  elements  are 
single  word  aval lab les. 
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Table  33.  (Part  2 of  6) 


I' 

(I 

r ' 


BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

DPENREF 

DELINK (50) 

Depenetration  point  I link 

DPLAT(50) 

Depenetration  point  I latitude 

DPL0NG(50) 

Depenetration  point  I longitude 

QFLAT(20) 

Refuel  point  I latitude 

QFLONG(20) 

Refuel  point  I longitude 

FILES 

TGTFILE(2) 

Target  data  file  (unit  and  maxi- 
mum length) 

BASFILE(2) 

Data  base  information  file  (unit 
and  maximum  length) 

MSLTIME(2) 

Fixed  missile  timing  file  (unit 
and  maximum  length) 

ALOCTAR(2) 

Weapon  allocation  by  targets  file 
(unit  and  maximum  length) 

TMPALOC(2) 

Temporary  allocation  file  (unit 
and  maximum  length) 

ALOCGRP(2) 

Allocation  by  group  file  (unit 
and  maximum  length) 

STRKFIL(2) 

Strike  file  (unit  and  maximum 
length) 

PLANTAPE 

Detailed  plans  tape 

MASTER 

IHDATE 

Date  of  run  which  created 

BASFILE 

IDENTNO 

Time  of  run  which  created 

BASFILE 

ISIDE 

Side 

NRTPT 

Number  of  route  points 

NCORR 

Number  of  corridors 

NDPEN 

Number  of  depenetration  corridors 

NRECOVER 

Number  of  recovery  bases 

NREF 

Number  of  refuel  areas 

NREG 

Number  of  regions 

NTYPE 

Number  of  weapon  types 

NGROUP 

Number  of  weapon  groups 

NTOTBASE 

Number  of  bases 

NPAYLOAD 

Number  of  payload  types 

NASMTYPE 

Number  of  ASM  types 

NWHDTYPE 

Number  of  warhead  types 

NTANKBAS 

Number  of  tanker  bases 

NCOMPLEX 

Number  of  complex  targets 

NCLASS 

Number  of  weapon  classes 

NALERT 

Number  of  alert  conditions 

NTGTS 

Number  of  targets 

NCORTYPE 

Number  of  corridor  types 

NCNTRY 

Number  of  country  codes 
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Table  33.  (Part  3 of  6) 


BLOCK 

NAVAL 

PAYLOAD 


PAYDATA 

PLANTYPE 

WPNGRPX 

WPNTYPEX 

TANKER 


HIM  _ iP 


VARIABLE  OR  ARRAY 

DESCRIPTION 

NNAVAL 

Length  of  /NAVAL/  data  arrays  on 
BASFILE 

PKN/^250) 

Single  shot  kill  probability 
against  naval  targets  for  group  I 

ISVX(6) 

Temporary  storage  array 

LSTDBLDS 

Index  of  last  base  for  which  a 

DBL  destruct  event  was  written 

NOBOMBl (40) 

Number  of  bombs  of  type  1 (For 
MIRVs,  the  number  of  IRVs) 

IWHD1(40) 

Type  index  of  first  bomb 

N0B0MB2 (40) 

Number  of  bombs  of  type  2 

IWHD2(40) 

Type  index  of  second  bomb 

NASM(40) 

Number  of  ASMs 

IASM(40) 

ASM  type 

NCM(40) 

Number  of  countermeasures  (bombers) 
Degradation  factor  (missiles) 

NDECOYS(40) 

Number  of  decoys  (for  MIRVs,  the 
number  of  terminal  decoys  per  IRV) 

NADECOYS(40) 

Number  of  area  decoys 

IMIRV(40) 

MIRV  system  identification  number 

PAYALT (40) 

Bomber  weapon  release  altitude 
indicator 

INITSTRK 

Indicator  for  first  or  second’ 
strike 

CORMSL 

Coordination  time  parameter  for 
missiles 

CORBOMB 

Coordination  distance  for  bombers 

ITYPEX  (250) 

Type  number  from  BASEFILE 

DBLX  (250) 

DBL  probability  from  BASFILE 

REL  (100) 

Weapon  reliability  from  BASFILE 

IWHTYPE  (100) 

Type  name  from  BASEFILE 

IFNCTN  (100) 

Function  code  for  weapon 

INDEXTK 

Tanker  index 

TKLAT 

Tanker  latitude 

TKLONG 

Tanker  longitude 

IREFTK 

Tanker  refuel  area  index 

NPSQNTK 

Number  of  tankers  per  squadron 

NALRTK 

Number  of  alert  tankers 

SPEEDTK 

Tanker  speed 

DLYAI  ,v 

Delay  for  alert  tankers 

DLYV  M’K 

Delay  for  nonalert  tankers 
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I I Table  33.  (Part  4 of  6) 


BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

TANKER 

TTOS 

Total  time  on  station 

(cont. ) 

ITYPETK 

Tanker  type 

TANKRNGE 

Tanker  range 

C7 

IINDEXTK(60) 

Tanker  base  index 

TKRLAT(60) 

Latitude  of  tanker  base  I 

TKRLONG(60) 

Longitude  of  tanker  base  I 

IIREFTK(60) 

Refuel  area  for  tankers  where 
n>0->-  must  refuel  at  area  n 

NTKPSQN(60) 

Number  of  tankers  in  squadron  I 

NALRTNK(60) 

Number  of  alert  tankers  at  base  I 

TANKSPD(60) 

Speed  of  tankers  at  base  I 

TKDLYALT(60) 

Delay  for  alert  tankers  at  base  I 

TKDLYNL(60) 

Delay  for  nonalert  tankers  at 
base  I 

TKTT0S(60) 

Total  time  on  station 

IITYPTK(60) 

Tanker  type 

TRANGE(60) 

Tanker  range 

c9* 

ILAUNDEC(90) 

Number  of  decoys  launched 

TIMELAUN(90) 

Time  of  decoy  launch 

DISTORE (90, 6) 

Distance  traveled  by  decoy 

HDTX(90) 

Temporary  line  array 

KPLX(90) 

Temporary  place  array 

JTPX(90) 

Temporary  event  number  array 

HLAX(90) 

Temporary  latitude  array 

HL0X(90) 

Temporary  longitude  array 

TZTX(90) 

Temporary  weapon  offset  latitude 
array 

TZNX(90) 

Temporary  weapon  offset  longitude 

IWHX(90) 

Temporary  weapon  type  index 

PAX (90) 

Temporary  probability  of  arrival 
array 

COT)(J[9P)_ 

Temporary  cumulative  time  array 

*Thls  conmon  block  Is  redefined  when  used  In  subroutines  PLANTANK  and  VAM. 
The  alternate  definition  Is  shown  under  Internal  Conmon  Block,  Table  34. 
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BLOCK 

Table  33.  (Part 

5 of  6) 

BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

C9 

Known  elsewhere 
as  /CHARTER/ 

Known  elsewhere 
as  /HAPPEN/ 

KOUNT(30) 

IHAP(30) 

MOUNT(50) 

JHAP(50) 

JAPTYPE(250) 

HAPLAT(250) 

HAP LONG (250) 

Miscellaneous  plan  counters 
and  indices 

Event  type 

Event  latitude  (History 

Event  longitude  (table 

Incremental  distance 

Not  used 

C8 

RECLAt(50) 

RECLONG(50) 

Tanker  recovery  latitude 
Tanker  recovery  longitude 

CIO 

RCBLAT(50,4) 

RCBLON(50,4) 

INDBAS(50,4) 

INDCAP(50,4) 

DISTR(50,4) 

T0F(50,4) 

Recovery  base  latitude 
Recovery  base  longitude  I 
Recovery  base  name  1 

Recovery  base  capacity 
Distance  to  recovery  ' 

Time  of  flight  to 
recovery  | 

/ Indexed 
' for 

1 each  of  4 
] bases 
[ assigned 

1 to  the 
' Ith  de- 
penetration 
( point 

INPUT  DATA  FROM 

STRKFILE 

BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

BLOCK 

LOCK/BLOCK (320) 

Initially  contains  the  missile 

pi  —'  from  STRKFlLt  (see  STRKFILE 
format);  also  used  to  store  the 
output  plan  record 


OUTSRT  Contains  the  input  bomber  record 

from  STRKFILE  (s?e  STRKFILE 
format) 
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Table  34.  (Part  4 of  4) 


BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

VEHIC 

CEPl 

Weapon  CEP 

NVHC 

The  number  of  weapon  vehicles 

UAROUT 

IWARFL 

Logical  unit  number  for  war 
gaming  print  output 

Table  35.  PLANOl  Internal 

VARIABLE  OR 
'T.(XX  ARRAY 

/CONTROL/  LSIDE 

NPLOT 
ISZE 
SCALE 

/CONTRl/  ICHANGE 


LREAD(2) 

MBCW 

MMIS 

1ST 

LTST 

INDSK 

lOUTDSK 

INDSKM 

lOUTDSKM 


Comnon  Blocks  (Part  1 of  4) 


DESCRIPTION 

Indicates  which  side 
Indicates  number  of  plots  per  page 
Plot  size 
Plot  scale 

Less  than  zero,  an  error  was  found 
on  cards;  greater  than  zero, 
recalculate  bomber  attrition. 
ICHANGE  Is  redefined  In  PLNTPLAN 
Sortie  Sequence  Number  and  Change 
Indicator  from  STRKCHNG  Input 
Number  of  words  In  common  /OUTSRTA/ 
for  STRKCHNG  bomber  plans 
Number  of  words  In  common  /OUTSRTA/ 
for  STRKCHNG  missile  plans 
STRKCHNG  option:  0=do  not  use  Input 
STRKCHNG,  ,=1,  use  Input  STRKCHNG 
Not  used 

Input  logical  unit  number  for 
STRKCHNG 

Output  logical  unit  number  for 
STRKCHNG 

Input  logical  unit  name  for  STRKCHNG 
Output  logical  unit  name  for  STRKCHNG 


*Parenthet ' 'al  values  ’rJlcate  array  dimensions.  All  other  elements  are 
slngle-wori  variables. 
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Table  35.  (Part  4 of  4) 


BLOCK 

/XL/ 

(cont.) 

For 

Bomber 

Plans 


VARIABLE  OR 
ARRAY 


r 


< 


JBTYPE(IO) 

XATTROT(IO) 

JBJEC(lO) 

XDLAT(IO) 

XDLONG(IO) 

JBDES(IO) 

JTSK(IO) 

JBCTY(IO) 

JBFLG(IO) 

XDSTE(IO) 

JBHOB(IO) 

XBDLTA(IO) 


DESCRIPTION 

Type  of  target 
Local  attrition 
Target  indices 
Latitude  of  weapon  offset 
Longitude  of  weapon  offset 
Designator  code  of  target 
Task  code  of  target 
Country  code  of  target 
Flag  of  target 
Effective  distance 
Height  of  burst 
Change  in  time 


WAROUT 


IWARFL 


Logical  unit  number  for  war  gaming 
print  output 


"•■nr."?'.' 
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Table  36.  Overlay  PLNTPLAN  Internal  Conmon  Blocks 
(Part  1 of  11) 


BLOCK  VARIABLE  OR  ARRAY* 

ARTIME  ARTIME(50) 

NBUDREF 

NB0MBREF(50) 

NTANKREF(50) 

IARVLS/ARVLS(2,1000) 


ASMARRAY  ALAT(IO) 

ALON(IO) 
IFLY(IO) 
IDIS(IO) 
lORD(lO) 
JAY 

DIST 


DESCRIPTION 

Earliest  bomber  arrival  time  at 
refuel  area  I 

Number  of  "buddy"  refuelings 
required 

Number  of  bombers  assigned  to 
refuel  area  I 

Number  of  tankers  assigned  to 
refuel  area  I 

ARVLS(1,I)  = time  of  the  Ith 
bomber  refuel  processed  by 
PLNTPLAN;  IARVLS(2,I)  = the 
refuel  area  for  that  bomber 
refuel 

Aim  point  latitude 
Aim  point  longitude 
Fly  point  flag 

Distance  from  fly  point  to  ASM  target 
Sort  index 

Index  communicated  to  PREFLl, 

PREFL2 

Distance  communicated  to  PREFLl, 
PREFL2,  POSTFLY 


♦Parenthetical  valuf  . indicate  array  dimensions.  All  other  elements  are 
single  V., i.ii  variables. 
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Table  36.  (Part  2 of  11) 


BLOCK 

CONTROL 


/CONTRl/ 


VARIABLE  OR  ARRAY 

LSIDE 

NPLOT 

ISZE 

SCALE 


DESCRIPTION 

Indicates  which  side 

Indicates  number  of  plots  per 
page 

Plot  size 
Plot  scale 


ICHANGE 


LREAD(2) 

MBOM 

IMIS 

1ST 

LTST 

INDSK 

lOUTDSK 


STRKCHNG  read  indicator  for 
PLANTMIS.  Zero  implies  no  further 
read  of  missile  plan;  positive  or 
negative  read  remaining  plan; 
negative  further  implies  plan  is 
an  added  sortie  on  STRKCHNG. 
ICHANGE  is  redefined  in  PLANOl 
Sortie  Sequence  Number  and  change 
indicator  from  STRKCHNG  input. 
Number  of  words  in  conmon  /OUTSRA/ 
for  STRKCHNG  bomber  plans 
Number  of  words  in  common  /OUTSRA/ 
for  STRKCHNG  missile  plans 
STRKCHNG  option  (0>do  not  use  input 
STRKCHNG,  -1  use  input  STRKCHNG, 
-2  use  input  STRKCHNG  in  PLANOl 
but  not  in  PLNTPLAN) 

Not  used 

Input  logical  unit  number  fur 
STRKCHNG 

Output  logical  unit  number  for 
STRKCHNG 


Table  36 


(Part  3 of  11) 


BLOCK 

/OONTRl/ 
(cont . ) 

CORCOUNT 


DINDATA 


VARIABLE  OR  ARRAY  DESCRIPTION 


INDSKM 

lOUTDSKM 

IH 

KC 

JH 

LC 


HDT(90) 

KPL(90) 

JTP(90) 


Input  logical  unit  name  for 
STRKCHNG 

Output  logical  unit  name  for 
STRKCHNG 

Points  to  line  of  /HAPPEN/  where 
current  corridor  begins 

Number  of  lines  in  /HAPPEN/ 
describing  current  corridor 

Points  to  line  in  /HAPPEN/  where 
current  depenetration  corridor 
begins  (1  = depenetration  point) 

Number  of  lines  describing 
current  depenetration  corridor 
(see  common  block  /C9/  for 
description  of  /HAPPEN/) 

Time  - for  detailed  history  - 
of  event  I 

Place  - for  detailed  history  - 
of  event  I 

Event  type  - for  detailed  history 
of  event  I 


HLA(90) 

HLO(90) 

TZT(90) 

TZN(90) 

PA (90) 

MHT 

•in 


Latitude  - for  detailed  history  - 
of  event  I 

Longitude  - for  detailed 
history  - of  event  I 

Weapon  offset  latitude  - of 
event  I 

Weapon  offset  longitude  - of 
event  1 

Probability  of  arrival  at  target 
- of  event  I 

Total  number  of  tinea  in  iletallcd 
plan 

Number  of  planned  events 


Table  36.  (Part  4 of  11) 


BLOCK 

DINDT2 

DISTC 

EVENTS 


HILO 


VARIABLE  OR  ARRAY 

DESCRIPTION 

CMT(90) 

Cumulative  time  - for 
detailed  history 

IWH(90) 

Weapon  type  index  - for 
detailed  history 

DISTC (20) 

Distances  between  target 
events 

LAUNM 

Launch  missile  code 

LAUNB 

Bomber  launch  code 

LEREFUEL 

Refuel  code 

LOCLATTR 

Local  attrition  or  drop  bomb 
event  code 

LAUNASM 

Launch  ASM  event  code 

LAUNDCOY 

Launch  Decoy  event  code 

LANDHO 

Recovery  Event  code 

LOHI 

Change  Altitude  event  code 

MISSATTR 

Missile  attrition  event  code 

LEGDOG 

Dogleg  event  code 

LABORT 

Abort  event  code 

LENTEREF 

Enter  refuel  area  event  code 

LEAVEREF 

Leave  refuel  area  event  code 

IGOHI 

Go  to  high-altitude  event  code 

IGOLOW 

Go  to  low-altitude  event  code 

ISTOREHI 

Number  of  event  in  /OUTSRT/ 
after  which  GO  HIGH  occurs 

Ml 


CK-l 


1 


i 

Table  36.  (Part 

5 of  111) 

BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

HILO 

(cont.) 

ISTORELO 

Number  of  event  in  /OUTSRT/ 
after  which  GO  LOW  occurs 

IGOLEFT 

Set  to  1 if  GO  LOW  range  is 
available  after  depenetra- 
tion 

FACHI 

Distance  after  event  ISTOREHI 
at  which  GO  HIGH  is  located 

FACLO 

Distance  after  event  ISTORELO 
at  which  GO  LOW  is  located 

GOLO 

Amount  of  GO  LOW  range  remain 
ing  for  depenetration 

ICLASS 

IBOMBER 

Bomber  class  index 

ITANKER 

Tanker  class  index 

IDP 

IDP(2) 

Depenetration  corridor  index 
number  as  reassigned  when 
last  target  is  an  ASM  target; 
IDP(l)  is  for  primary  plan, 
IDP(2)  is  for  the  alternate 

TFLGDPEN 

IFLGDPEN 

* 1 at  calculated  GO  LOW 

==  2 if  GO  LOW  precedes  first 
Insector 

IFLGDPEN 

ICIFLG 

Tactical  aircraft  flag 

IGO 

IG0800 

Set  to  1 for  degenerate 
target  area 

lOUT 

LPAYLOAD 

Index  of  current  payload 

LREF 

Index  of  curr^  it  refuel  area 
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Table  36.  (Part  6 of  11) 


BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

lOUT 

(cont.) 

LDPEN 

Index  of  current  depenetra- 
tion point 

KOKO 

Index  of  current  ASM  type 

JFCTNO 

Function  number  of  vehicle 

IRF 

IRF 

Assigned  refuel  area  index 

NRF 

Number  of  refuel  areas, 
including  those  assigned  by 
PLNTPLAN 

IRFTK 

IRFTK 

Refuel  area  index 

ISRTNS 

ISRTNS 

Bomber  sortie  sequence  number 
for  print 

KEYLENG 

LOS 

Length  of  /OUTSRT/  record 
(STRKFILE) 

LIN 

Length  of  / INDATA/  record 
(EVENTAPE) 

LDN 

Length  of  common  block 
/DINDATA/ 

LINC 

Length  of  /INDATA/  except  for 
last  array 

LTK 

Length  of  tanker  record 

UlIS 

Length  of  missile  record, 
STRKFILE 
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Table  36.  (Part  7 of  11) 


BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

KEYLENG 
(cont. ) 

mo 

Number  of  good  words  in 
missile  /INDATA/ 

LDBL 

Length  of  record  for  naval 

DBL  event 

LASM 

U1 

Latitude  of  beginning  point 
of  bomber  path 

VI 

Longitude  of  beginning  point 
of  bomber  path 

U2 

Latitude  of  end  point  of 
bomber  path 

V2 

Longitude  of  end  point  of 
bomber  path 

UAT 

Latitude  of  ASM  target 

VAT 

Longitude  of  ASM  target 

RASM 

Range  of  ASM 

RLAT 

Latitude  of  ASM  aim  point 

RLONG 

Longitude  of  ASM  aim  point 

LAUNSNAP 

INRANGE 

Set  to  zero  if  ASM  target  is 
In  range  of  flight  path; 
otherwise  to  one 

FRACPATH 

Fraction  of  total  path  at 
which  ASM  is  launched 

MH 

MHMINA(IO) 

Line  in  common  /DINDATA/ 
where  target  area  begins 

MHMAXA(IO) 

Line  in  common  /DINDATA/ 
where  target  a.ea  ends 

MHMN 

Lower  plot  marker  for  sortie 

MHMX 

Upper  plot  marker  for  sortie 

MH2 

MHMIN(2) 

Lower  plot  markers  for  sortie 

MHMAX(2) 

Upper  plot  markers  for  sortie 
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Table  36.  (Part  8 

of  11  ) ^ 

BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

MISCT 

MISCT 

Missile  booster  count 

MTARGCT 

Missile  target  count 

MRVFLG 

MRVFLG 

Set  to  1 if  plan  contains 

MIRVs  i 

POLITE 

SI 

Latitude  of  beginning  Inter- 
polation point 

T1 

Longitude  of  beginning 
interpolation  point 

S2 

Latitude  of  interpolation 
end  point 

T2 

Longitude  of  Interpolation 
end  point 

FACTOR 

Interpolation  factor  or 
fraction 

SR 

Latitude  of  interpolated 
point 

TR 

Longitude  of  interpolated 
point 

PPINFO 

NDUMCORR 

Tactical  aircraft  corridor  ^ 

index  i 

GOLOXl 

Saved  low  altitude  range 
available  for  use  in  corridor 

GOLOX2 

Saved  low  altitude  range 
available  for  use  before 
first  target 

GOLOX3 

Saved  low  altitude  range 
available  for  use  after  first 
target 

INDEX 

Bomber  plan  index.  Equals 
group  number  plus  100  times 
corridor  index  plus  10000 
times  sortie  number 

NSORTIES 

Total  number  of  primary  bomber 
plan  processed 

INDXX 

Group  weapon  type  Index 

i 
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Table  36.  (Part  9 of  11) 


^uOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

PPINFO 

(cont.) 

GOGO 

Saved  low  altitude  range 
available  for  use  In  corridor 

MHIST 

Maximum  number  of  entries 

Into  history  table 

DUST 

Distance  bomber  traveler 
during  first  history  event 

LXIDPCHK 

Logical  array  Indicating  If 
depenetration  corridor  Is 
used 

RECOVERY 

NAMECAP(200,3) 

J=l,  Recovery  base  name 

J=2,  Recovery  base  capacity 

J=3,  Number  of  aircraft  that 
landed  at  recovery  base 

NBOMGP 

Number  of  bomber  groups 

NUSED(200) 

Working  array  that  defines  the 
number  of  aircraft  arriving  at 
each  base  for  a given  group 

IREC 

Logical  unit  containing  recovery 
base  data 

NREC 

Number  of  unique  recovery  bases 

REF 

RFLAT(M) 

Latitude  of  refuel  area  I 

RFLONG(50) 

Longitude  of  refuel  area  I 

RL 

RL 

Decoy  low-altitude  range 

RH 

Decoy  hlgh-altitude  range 

SNAPON 

NAP (15) 

Set  to  thn  c '’or  active  print 

I;  set'tf  une  for  inactive 
pi  f.nt  1 

SPASM 

SPASM 

Speed  of  ASM  currently  used 

TEMPO 

DT(50) 

Distance  or  time  temporary 
storage 

JT(50) 

Event  type  temporary  storage 

TLT(5''' 

Latitude  temporary  storage 

i 
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Table  36.  (Part  10  of  11) 


BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

'TOflff ' 

TLN(50) 

Longitude  temporary  storage 

(cont. ) 

LPL(50) 

Place  index  temporary  storage 

TIMELINE 

ITIMETYP(40) 

CORMSL  type  (0-Flight;  I-Line) 

CORMSLX(40) 

Percent  flight  complete  or 
time  on  line 

FLTMIN(40) 

Minimum  flight  tine  in  minutes 

INDXFIX(IOOO) 

Target  index  numbers  for  fixed 
weapons 

TIME (1000) 

Arrival  times  for  fixed  weapons 

TDATA(252) 

Temporary  storage  area  for 
flight  data 

ZLAT(50,2) 

Latitude  of  timing  line  end- 
points 

ZLONG(50,2) 

Longitude  of  timing  line 
endpoints 

XC(50) 

X-coordinate  of  cross  product 
vector  of  timing  line 

YC(50) 

Y-coordlnate  of  cross  product 
vector  of  timing  line 

ZC(50) 

Z-coordinate  of  cross  product 
vector  of  timing  line 

DL(50) 

Length  of  timing  line 

TMLNCH(18) 

Launch  time 

GOLD 

Last  fixed  weapon  group  proc- 
essed 

NFIXWPS 

Number  of  fixed  weapons 

NLEFT 

Counter  for  fixed  weapons 

NLINES 

Number  of  timing  lines 

MSLFIL(5) 

Input  area  for  record  from 
MSLTIME  file  (see  MSLTIME 
format) 
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Table  36.  (Part  11  of  11) 


liL.O<JK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

VICINITY 

VHB 

Bomber  cannot  go  high  within 

VHB  miles  before  target 

VHA 

Bomber  cannot  go  high  within 

VHA  miles  after  target 

VLB 

Bomber  cannot  go  low  within 

VLB  miles  before  target 

VLA 

Bomber  cannot  go  low  within 

VLA  miles  after  target 

GOMIN 

Bomber  cannot  fly  low  for  less 
than  GOMIN  minutes 

DELDIS(6) 

Decoy  coverage  distance 

LPRIORITY(20) 

Possible  decoy  launch  priority 

LMHT(90) 

Possible  Decoy  Launch  event 
number 

NDCYRQ(20) 

Pointer  to  array  DELDIS 

NPSLN 

Number  of  possible  decoy  launches 

NUMDCOYS 

Number  of  decoys  available 

IWARFL 

Logical  unit  number  for  war 
gaming  print  output 

COST  (I,  J) 

Distance  between  tanker  base  I 
and  refuel  area  J (where  I“60, 
J-50) 

SOURCE (60) 

Number  of  tankers  at  base  I to 
be  automatically  assigned 

ISOL(llO) 

The  Ith  nonrero  element  in 
final  VAM  solution 

/C9/ 

RBASLOC(llO) 

Tanker  base  corresponding 
to  the  Ith  solution  element 

CBASLOC(llO) 

Refuel  area  corresponding'  to 

Ith  solution  element 

NSOL 

Number  of  nonzero  elements  in 

VAM  solution 

RMAX 

Number  of  rows  (tanker  bases) 
in  VAM  problem 

IRCHK(60) 

Set  to  one  if  base  1 tankers 
are  not  to  be  automatically 
allocated 

IRCDIF 

Number  of  bases  for  which 
IRCHKd)-! 

DT‘;'r|<EF(50) 

Distances  from  current  tanker 
base  to  refuel  area  I 
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4.6.1  Overlay  PLANOl 
PURPOSE: 


ENTRY  POINTS: 
FORMAL  PARAMETERS: 
COmON  BLOCKS: 


SUBROUTINES  CALLED: 


CALLED  BY: 

Method: 

The  first  sortie  change  card  Is  read  and  If  the  operation  code  Is  an  "E" 
there  are  no  changes  and  the  first  overlay  terminates.  If  not,  the 
change  cards  are  read,  sorted  by  Sortie  Sequence  Number  and  saved  on  a 
temporary  file.  Then  the  first  card  Is  read  Jrom  the  file  and  the  pro- 
cessing of  all  change  cards  begins. 

The  first  phase  Is  the  Initialization  of  Input  files  and  performance  of  the 
proper  reads.  TARFI1£  Is  Initialized;  the  header  Is  read  Into  conmon 
/TARLIST/  and  Its  file  Is  terminated.  Subroutine  FINDTAR  will  reopen  and 
close  TARFILE  as  needed. 

BASFILE  parameters  are  now  read  Into  conmon  /BASEF/,  /CORRCHAR/  and  /DPENRE/. 
/BASEF/  array  contains  Information  required  If  new  missile  sorties  are  added; 
other  data  are  used  In  subroutine  CHGSRT  when  bomber  attrition  and  low- 
altitude  distance  are  recalculated.  If  no  STRKCHNG  file  exists,  subroutine 
CHGCORR  Is  called  to  fill  required  arrays  for  use  In  FLTSORT.  Once  defined, 
these  arrays  are  placed  on  the  STRKCHNG  file  and  kept  for  future  runs. 

PIANOl  next  determines  the  latest  STRKCHNG  file  and  defines  It  as  the  Input 
file,  SCHMGl.  Ihe  various  combinations  are:  no  STRKCHNG  exists,  one  or 
two  STRKCHNG  exist.  Function  LOCATE  determines  the  existence  of  files 
and  subroutine  SETREAD  stores  the  creation  date  and  times  Into  conmon 
/FILABEL/.  Parameters  INDSK  and  INDSKM  define  Input  file  number  and 


This  first  overlay  of  program  PLANOUT  permits  the 
user  to  make  minor  changes  to  the  plans  generated 
by  QUICK  without  requiring  a new  allocation 

PLANOl 

None 

BASEF,  BEGIN,  BLOCK,  CARDS,  CONTROL,  CONTRl,  CORRCHAR, 
CORRCl,  DPENRE,  FILABEL,  FILES,  ITP,  MYIDENT,  MYLABEL, 
NOPRINT,  OUTSRA,  OUTSRT,  PAYDATA,  PLNTHL,  TARLIST, 
WORD,  WAROUT 

ABORT,  CHGCORR,  CHGSRT,  DEACTIV,  FLTSORT,  ITCHG, 
LOCATE,  MKCHG,  RDARRAY,  RDWORD,  SETREAD,  SETWRITE, 
SKIP,  SLOG,  TERMTAP,  WRARRAY 

PLANOUT 
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Ip  name;  lOU'lDSK  and  lOUTDSKM  the  output  number  and  name.  Ihe  STRKCHNG 
'!p;u.or  is  read,  if  any  file  exists.  Finally,  the  STRKFILE  is  opened  and 
the  first  word  TARFAC  is  read.  SCHNG2  writes  the  output  header. 

Merging  of  input  data  with  STRKFILE  and/or  STRKCHNG  (if  it  exists)  now 
begins.  The  cyclic  process  is  as  follows: 

• Read  a plan  into  common  /OUTSRT/  and  if  it  is  a missile  plan 
transfer  the  plan  into  /BLOCK/  array  and  finish  reading  the 
missile  plan.  If  local  parameter  NOREADl  is  nonzero,  STRKFILE 
has  been  terminated. 

• A STRKCHNG  record  is  read  if  It  exists  ISTt^O.  Each  read  Is 
accomplished  In  three  steps.  A two-word  header  exists  for 
each  sortie.  If  the  second  word,  LREAD(2),  Is  zero  the  plan 
as  given  on  the  STRKFILE  Is  used;  If  not  this  plan  has  been 
altered  In  previous  PLANOUT  runs.  For  this  case  the  altered 
plan  follows  on  the  STRKCHNG.  The  plan  Is  read,  again.  Into 
conmon  /OUTSRT/  or  /BLOCK/,  thus  eliminating  the  STRKFILE 
record.  Added  Information  Is  read  Into  connnon  /OUTSRA/. 

• It  is  imperative  that  the  sortie  sequence  number  on  both  files 
match  for  all  plans.  A mismatch  causes  the  program  to  abort. 

• The  STRKCHNG  (or  STRKFILE)  sortie  sequence  number,  ISORTN,  is  now 
compared  against  the  sortie  sequence  number,  ISSN,  defined  on  the 
last  change  card  read.  If  ISSN  is  greater  than  ISORTN,  the 
present  plan  is  unaltered  on  this  run  and  written  onto  SCHNG2 

as  read. 

a For  a change  request,  ITCHG  Is  called  to  Initialize;  then  CHGSRT 
to  process  the  sortie  change  card.  A new  change  card  Is  read 
and  sortie  sequence  numbers  are  again  compared.  Whenever  ISSN 
is  greater  than  ISORTN  the  present  plan  may  be  finalized;  MCCHG 
accomplishes  this.  If  any  errors  were  detected  on  bomber  sortie 
cards,  ICHANGE  <0,  the  output  STRKCHNG  will  be  the  unchanged 
Input  record.  Subroutine  FLTSORT  is  used  for  ’'rber  plan  and 
when  recalculation,  ICHANGE  >0,  of  attrition  is  desired.  After 
meeting  these  checks,  the  altered  Sr’JNGZ  is  written  and  the  cycle 
continues  by  reading  a new  plan  on  S'iRKFILE  and  STRKCHNG. 

This  cyclic  process  continues  until'  the  STRKFILE  end-of-file  is  read.  At 
this  stage  non-MIRV  missile  sorties  may  be  added.  One  sortie  change  com- 
pletely defines  a new  missile  sortie. 
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Search  DESIG  Array  Of 
Cominon  /OUTSRT/  For 
Match  On  Input  IDESIG 


Search  DESIG  Array  Of 
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On  Input  IDESIG 
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round  7 

RETURN 


RETURN 


Figure  81,  Function  SRCHO 


t.6.2  Overlay  PLNTPLAN 


t'JKPOSE:  This  second  overlay  program  PLANOUT  processes 

the  bomber  and  missile  plans  provided  on  Che 
STRKFILE  by  POSTALOC  or  STRKCHNG  from  PLANOl; 
writes  together  with  tanker  plans  and  outputs 
a detailed  plan  via  the  PLAMTAPE  In  a form 
suitable  as  hard  copy  output. 


ENTRY  POINTS:  PLNTPLAN 

FORMAL  PARAMETERS:  None 

I COMMON  BLOCKS;  ARTIME,  ASMARRAY,  ASMTABLE,  CONTROL,  CONTRl, 

CORRCHAR,  Cl,  C7,  C8,  C9,  CIO,  DELTA,  DINDATA, 
DINDT2,  DPENREF,  EVENTS,  FILES,  ICLASS,  IFLGDPEN, 

I INDATA,  lOUT,  IRF,  ISRTNS,  ITP,  KEYLENG,  KEYS, 

MASTER,  MH,  MH2,  MISCT,  MRVFLG,  MYIDENT,  liYLABEL, 
NAVAL,  OUTSRA,  OUTSRT,  PAYDATA,  PAYLOAD,  PLANTYPE, 
POLITE,  PPINFO,  RECOVERY,  REF,  RL,  SNAPON,  TIME, 
TIMELINE,  IVORD,  WAROUT,  WPNGRPX,  WPNTYPEX 

I SUBROUTINES  CALLED;  ABORT,  CHGCHK,  CL INDATA,  DEACTIV,  DECOY ADD,  DISTF, 

DISTIME,  GLOG,  INITANK,  INTERP,  ITLE,  KEYMAKE, 
LNCKDATA,  LOCATE,  PLAN,  PLANTANK,  PLANTMIS, 

PRNTAB,  RDARRAY,  RDWORD,  SETREAD,  SETWRITE,  SKIP, 
SLOG,  SNAPCON,  SNAPIT,  SWTCHALT,  TERMTAP,  TIMEME, 
VmARRAY,  WRWORD 

CALLED  BY:  PLANOUT 

Me  thod 

Figure  82  Is  the  overall  macro  flowchart  for  overlay  PLNTPLAN.  Initiali- 
zation Includes  reading  the  BASFILE  and  the  user  data  cards.  Also,  the 
STRKFILE  first  word,  TARFAC,  Is  read,  and  STRKCHNG  header  skipped  over. 

The  first  record  from  the  STRKFILE  Is  read  In,  subroutlr"  CHGCHK  called 
to  read  STRKCHNG  and  the  main  processing  begins.  'Whenever  a missile  plan 
Is  read,  subroutine  PLANTMIS  Is  given  contro'!  until  another  bomber  record 
I Is  encountered.  (A  bomber  record  with  a group  number  of  999  Is  the  end- 
of-flle  Indicator.) 

Since  subroutine  PLANTMIS  controls  all  processing  of  missile  plans,  and 
subroutine  PLANTANK  controls  the  generation  of  alt  tanker  plans,  the 
relevant  concepts  are  discussed  under  those  two  subroutines.  Bomber 
processing,  however.  Is  follows. 
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Figure  83  shows  • typical  path  a bomber  would  take  between  the  time  of 
Its  launch  and  Its  recovery.  The  bomber  Is  launched  from  a base,  files 
to  a refuel  point  or  area  If  refueling  Is  called  for,  then  to  a corri- 
dor entry  point.  It  may  then  fly  one  or  more  prespecified  doglegs 
(called  precorrldor  legs)  which  define  a penetration  route  before 
reaching  the  point  labeled  Corridor  Origin.  From  the  origin  It  files 
over  the  target  area  and  Its  assigned  targets  In  their  proper  order. 

It  then  enters  the  depenetration  corridor  which  may  also  consist  of  one 
or  more  doglegs.  From  there  It  files  to  the  recovery  point  or  base. 

This  path  may  logically  be  divided  Into  four  parts;  (1)  the  launch  and 
refuel  portion,  (2)  the  precorrldor  legs,  (3)  the  target  area  which  Is 
the  main  part  of  the  plan,  and  (4)  the  depenetration  and  recovery  por- 
tion. 

In  PLNTPLAN,  each  bomber  sortie  Is  processed  In  much  the  same  order  as 
it  Is  flown;  that  Is,  first  the  precorrldor  section  events  are  posted, 
then  those  of  the  target  section,  and  finally,  the  depenetration  and 
recovery  section  events.  Besides  the  posting  of  the  target  events  them- 
selves, the  main  processing  consists  of  posting  events  for  changes  of 
altitude  and  decoy  launches.  All  postings  for  bomber  events  are  made  In 
the  arrays  of  common  /DINDATA/.  The  completed  plan  Is  output,  and  pro- 
cessing begins  on  the  new  plan. 

After  processing  all  bomber  plans,  STRKCHNG  must  be  Investigated  for  any 
missile  sorties  added  by  the  user  In  PLANOl.  If  the  sortie  sequence 
number  Is  less  than  99999,  sorties  were  added  and  PLANTMIS  processes  all 
added  plans.  These  sorties  do  not  exist  on  the  STRKFILE. 
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Figure  32.  Jverlay  PLNTPLAN  (Macro  Flowchart) 
(Part  1 of  2) 


BOMBER  BASE 


Direction  of  Flight 


REFUEL  POINT 


4 CORRIDOR  ENTRY  (First  user-directed  route  point) 

\ \ 

^ \ PENETRATION  ROITTE  UGS  (Called  precorridor  legs, 

O X I i.e.,  optional  route 

\J  j legs  which  control 

/ bonber  routing  prior 

! to  the  corridor  origin) 

/ 

•’  CORRIDOR  ORIGIN  (Fron  this  point,  bombers  may 
/\  fly  direct  to  targets) 


AXIS  ORIENTATION  POINT 


D FIRST  TARGET 

\ 

\ 

\ 

\ 

O LAST  TARGET 


Route  if  refueling  is  specified 

and  precorridor  legs  are  defined 
in  data  base. 


"H^EPENETRATION  CORRIDOR  POINT 

\ 

\ 

j DEPENF'iTlATION  ROUTE  LEGS 

ed  . 

ned  ' 

\ 

4 RECOVER'.  BASE 


-oo—  If  refueling  is  not  specified  and 
prccorridor  legs  are  not  defined, 
the  bomber  is  routed  in  a straight 
line  from  its  base  to  the  corridor 
origin.  In  this  case  the  corridor 
origin  is  also  the  corridor  entry 
point. 


Figure  S'".  Path  of  Typical  Bomber  Sortie 
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Tanker  plans  are  generated  by  subroutine  PLANTAtK  after  all  bomber  and 
missile  plans  have  been  completed.  All  files  are  then  terminated,  and 
PLNTPLAN  exits. 

To  facilitate  dlscusr'on,  PLNTPLAN  Is  divided  into  "blocks"  of  coding  as 
noted  In  the  macro  flowchart.  The  remaining  description  as  well  as  the 
detailed  flowcharts  are  organized  around  these  blocks,  which  are: 

BLOCK  10  - Program  Initialization 
15  - Control  loop 

20  - Call  subroutine  PLAN 

80  - Deleted 

90  - Deleted 

100  - Program  termination 

Block  10:  Program  Initialization  (figure  84) 

In  addition  to  Initialization  program  variables,  coding  block  10  reads 
all  required  data  from  the  BASFILE,  and  all  user  control  cards,  calling 
subroutine  SNAPCON  for  the  print  request  cards  and  subroutine  LNCHDATA 
for  the  missile  timing  cards.  Files  are  Initialized,  headers  read,  and 
preliminary  Information  Is  printed. 

A list  of  each  recovery  base  (determined  liy  name  as  stored  In  array  INDBAS) 

Is  stored  within  array  NAMCAP.  A single  recovery  base  may  be  linked  to  up 

to  four  depenetratlon  corridors  and,  hence,  appear  more  than  once  within  ^ 

array  INDBAS . 4 

Block  15:  Control  Loop  (figure  85) 

The  first  bomber  plan  is  then  read  in  from  the  STRKFILE,  subroutine 
CHGCHK  executed  to  read  STRKCHNG  and  the  main  processing  of  PLNTPLAN 
begins.  If  a missile  plan  Is  read,  subroutine  PLANTMIS  receives  control. 

Otherwise,  the  number  of  events  Is  checked  and  the  sortie  INDEX  is  com- 
puted. Subroutine  SNAPCON  is  called  to  determine  which  prints  are  to  be 
active  for  this  plan.  If  the  program  is  to  be  terminated  at  this  sortie 
(print  request  14),  a branch  Is  taken  to  the  termination  block. 

Block  20:  Call  Subroutine  PLAN  and  Convert  (figure  87) 

The  bomber  sortie  Is  checked  to  see  If  It  Is  able  to  fly  to  a recovery 
base  or  If  Its  full  compliment  of  weapons  were  allocated.  If  processing 
Is  to  continue  with  this  record,  subroutine  PLAN  Is  called  to  develop 
detailed  bomber  sorties.  Subroutine  SWTCHALT  Is  then  called  to  convert 
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Che  CHANGALT  events  to  GO  LOW  or  GO  HIGH  events.  Subroutine  DISTIMI:  then 
. j called  to  compute  distances  between  events  and  associated  time  incre- 
ments, and  subroutine  DECOYADD  Is  called  to  allocate  the  available  decoys 
Decoy  Launches  are  now  added  to  the  detailed  History  table  by  examining 
each  event  to  see  If  a launch  Is  to  be  Inserted  (lnd..cated  If  the  corres- 
ponding word  In  array  ILAUNDEC  is  nonzero).  For  low-altitude  launches 
(ILAITNDEC  “ 0),  the  actual  launch  point  must  be  computed.  The  Decoy 
Launches  are  Inserted  by  copying  each  event  Into  a temporary  detailed 
History  table.  If  a GO  HIGH  event  has  a decoy  launch  Indicated,  the 
launch  Is  Inserted  after  the  GO  HIGH.  For  all  other  events  with  Indicated 
decoy  launches,  the  launch  la  Inserted  before  the  event  Is  copies.  Decoy 
launches  are  posted  by  adding  to  event  LAUNDCOY  to  the  event  array  (JTP) 
and  storing  the  number  of  decoys  launched  (>0)  In  the  array  usually  re- 
served for  the  place  Index  (KPL) . The  remaining  Information  required  In 
the  detailed  History  table  Is  stored  In  the  normal  manner. 


Decoys  are  terminated  as  the  detailed  History  table  Is  recop led  Into  Its 
original  arrays.  Each  time  a hlgh-altltude  Decoy  Launch  event  Is  en- 
countered, the  total  decoy  flight  time  Is  computed  from  the  distance  In 
array  DISTORE  (filled  by  subroutine  DECOYADD)  and  added  to  the  next  odd 
word  In  an  array  (TSTORE)  which  holds  the  remaining  flight  time  of  all 
decoys  which  have  been  launched  but  not  yet  terminated  at  the  time  of 
this  event.  The  number  of  decoys  to  be  terminated  is  added  to  the  nert 
even  word  of  TSTORE.  As  each  subsequent  event  Is  processed,  the  time 
since  the  last  event  (HDT)  Is  subtracted  from  the  times  In  TSTORE. 
Whenever  a decoy  has  no  flight  time  remaining,  a LAUNDCOY  event,  together 
with  the  number  of  decoys  being  terminated  (stored  as  a negative  number) 
and  other  relevant  Information,  Is  added  to  the  detailed  History  table. 

If  the  bomber  depenetrates  or  aborts  while  decoys  are  still  flying,  the 
remaining  decoys  are  terminated  immediately  before  the  final  event.  It 
should  be  noted  that  decoys  launched  at  low  altitude  are  not  terminated. 


PLNTPLAN  outputs  the  final  plan  to  the  PLANTAPE  and  returns  to  block  15 
to  obtain  the  next  record. 


Block  10;  Program  Initialization 


Figure  84.  Overlay  PLNTPLAN  (Part  1 of  2) 
Block  10:  Initialization 
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Figure  85.  Overley  PLNTPLAN 

Block  15:  Control  Loop 
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Figure  87.  (Part  5 of  10) 
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Figure  87.  (Part  6 of  10) 
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Figure  87.  (Pert  9 of  10) 
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Igure  87.  (Part  10  of  10) 
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i 

Block  100;  Overlay  Termination  (figure  89) 

The  termination  of  PLNTPLAN  occurs  when  the  end  sentinel  record  Is 
reached  on  the  Input  STBKFILE.  This  record  Is  Identified  by  a group 
I nunber  greater  than  250.  At  this  stage  all  missile  sorties  added  In 
PLANOl  onto  the  STRKCHNG  are  processed.  A sortie  sequence  number 
greater  than  99999,  Implies  no  added  sorties.  After  PLANTMIS  evaluates 
all  added  plans,  subroutine  PLANTANK  Is  called  to  generate  and  write 
sorties  for  all  tankers  listed  on  the  BASFILE.  A sentinel  record  Is 
I written  at  the  end  of  the  PLANTAPE;  the  boodter  recovery  Information 
Is  added  to  the  eventape  and  the  Refuel  Area  table  to  the  PLANTAPE. 

At  this  point,  the  list  of  Sortie  Numbers  of  the  boinbers  that  could 
not  reach  a recovery  base  and  the  list  of  those  that  did  not  use  their 
full  compliment  of  weapons.  Is  prlntel  out.  A print  suimnarlzlng  how 
many  aircraft  arrives  at  each  recover,-  base  Is  generated.  Finally, 
all  files  are  terminated,  and  final  messages  are  printed. 

This  completes  the  PUHTLAN  processing. 
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Subroutine  CHGCHK 


ri'KPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  read  STRKCHNG  as  output  from  PLANOl,  overlay 
1 of  PLANOUT. 

CHGCHK 

None 

CONTRl,  ITP,  MYIDENT,  OUTSRA,  OUTSRT 
ABORT,  LOCATE,  RDARRAY 
PLANTMIS,  PLNTPLAN 


Method: 

This  subroutine  reads  bomber  and  missile  plans  from  the  STRKCHNG,  if  it 
exists.  A two-word  header  consisting  of  the  sortie  sequence  number  and 
change  indicator  exists  for  each  record.  The  last  record  on  STRKCHNG 
is  identified  with  a sortie  sequence  number  greater  than  99999. 

CHGCHK  is  called  after  a record  was  read  from  STRKFILE.  The  two-word 
header  is  read  first  and  checks  are  made  to  ensure  sortie  sequence  number 
matches  on  both  files.  If  the  change  indicator  on  the  STRKCHNG  is  zero  a 
RETURN  is  executed;  otherwise  a change  record  follows  for  this  sortie 
sequence  number.  The  record  is  read  into  common  /OUTSRT/  and  /OUTSRA/ 
whereby  destroying  the  STRKFILE  record.  For  missile  plans,  subroutine 
PLANTMIS  will  read  the  remaining  record. 

When  parameter  ICHANGE  is  negative,  records  are  to  be  processed  that  do 
not  exist  on  the  STRKFILE.  These  records  are  missile  plans  that  were 
added  via  sortie  change  cards.  The  first  read  of  add  sorties  is  per- 
formed in  PLNTPLAN;  subsequent  reading  is  done  in  CHGCHK. 

Figure  98  illustrates  CHGCHK. 
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4.6. 2.4  Subroutine  CHGTIM 

PURPOSE:  Alter  finalized  history  table  by  increasing  or 

decreasing  times  among  desired  events. 

ENTRY  POINTS:  CHGTIM 

FORMAL  PARAMETERS:  None 

I COMMON  BLOCKS:  COHTRl,  DINDATA,  OUTSRA 

SUBROUTINES  GALLED:  None 

CALLED  BY:  DISTIME 

Method* 

After  subroutine  DISTIME  converts  distances  into  time  increments,  CHGTIM 
is  called  to  process  all  time  changes  specified  on  sortie  change  cards 
I for  this  plan.  Sortie  cards  permit  time  alterations  to  any  DROPBOMB  or 
AIM  ASM  weapon  event.  Interceding  events  will  have  these  times  adjusted 
by  an  amount  proportional  to  their  weight  in  the  sum  of  the  time  between 
events  as  calculated  by  DISTIME.  In  other  words,  the  requested  time 
change  for  a given  weapon  event  is  prorated  starting  with  the  last  DROPBOF 
or  AIM  ASM  event. 

Array  CHTIM  contains  time  changes  for  all  weapon  events  (DROPBOMB  or  AIM 
ASM).  Array  HDT  contains  time  increments  for  all  events  in  the  sortie. 
These  events  consist  of  the  weapon  events  plus  additional  events  such  as 
I LAUNCH,  REFUEL,  DOGLEG,  GO  LOW,  GO  HIGH,  and  RECOVER.  Also  there  is  an 
ASM  TGT  event  that  defines  an  ASM  flight  time.  The  two  arrays  are  similar 
in  that  the  first  weapon  event  in  array  CHTIM  and  the  first  weapon  event 
in  array  HDT  are  identical  as  are  the  second,  third,  etc.  CHGTIM  prorates 
time  changes  among  weapon  events.  The  time  Increment  for  event  ASM  TGT 
is  never  changed  since  this  is  the  ASM  flight  time;  only  launch  times  are 
changed . 

Figure  99  Illustrates  CHGTIM. 
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urn  Up  Time  Intervals 
Starting  From  LASTE. 

Ignore  ASM  Flight 
I Time  I 


Prorate  Time  Change 
Over  Preceding  Events 


Figure  99.  (Part  2 of  2) 
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‘.6.2.6  Subroutine  CL INDATA 


rURPOSE:  To  initialize  common  /INDATA/  and  common  /DINDATA/ 

ENTRY  POINTS:  CL INDATA 

FORMAL  PARAMETERS:  None 

COMMON  BLOCKS:  DINDATA,  INDATA,  KEYLENG 

SUBROUTINES  CALLED:  None 

CALLED  BY:  PLAN,  PLANTANK,  PLNTPLAN 

Method: 

Each  word  in  common  /INDATA/  and  each  word  in  /DINDATA/  is  set  to  zero. 
lALT  in  /INDATA/  is  initialized  to  1. 

Subroutine  CLINDATA  is  illustrated  in  figure  101. 


1 
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Figure  102.  (Part  7 of  7) 
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’.8  Subroutine  DISTIME 


'^I'OSE : 


To  compute  distances  between  events  and  convert 
these  distances  into  time  increments. 


ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED: 
CALLED  BY: 

Method: 


DISTIME 

None 

ASMTABLE,  DINDATA,  PINDT2,  EVENTS,  lOUT, 
OUTSRT,  PAYLOAD,  SPASM 

CHGTIM,  DISTF 

PLNTPLAN 


This  subroutine  is  called  immediately  after  a bomber  plan  or  an  alter- 
nate bomber  plan  has  been  processed.  In  either  case,  the  plan  is  con- 
tained in  the  arrays  of  common  /DINDATA/.  The  counter  MHT  is  set  to 
the  number  of  lines  contained  in  the  plan.  For  primary  plans,  counter 
NPL  is  set  to  zero.  An  alternate  plan  is  located  beginning  at  cell  MHT 


DISTIME  uses  the  latitudes  contained  in  array  HLA  and  the  longitudes 
contained  in  the  array  HLO,  and  records  the  resulting  time  increments 
in  array  HDT.  For  computing  distances,  the  function  DISTF  is  used. 

This  computes  great  circle  distances  where  the  longitudinal  difference 
is  greater  than  2.8  degrees,  otherwise  it  assumes  a Mercator  projection. 
To  convert  distances  to  time,  the  speed  SPDHI  or  SPDLO  is  used, 
depending  on  whether  the  bomber  is  at  high  or  low  altitude.  For  ASMs, 
the  value  in  SPASM  is  used. 


This  computation  is  sufficient  for  all  events  except  for  zone  cross- 
ings. This  is  because  zone  crossings  are  located  or  determined  only 
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Figure  104.  (Part  2 of  2) 
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4.-  10  Subroutine  FLYPOINT 

I FLYPOINT  is  an  integral  part  of  block  40  in 

PLAN  which  adjusts  events  for  ASM  launches. 


ENTRY  POINTS: 

FORMAL  PARAMETERS; 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


FLYPOINT,  PREFLl,  PREFL2,  POSTFLY 
None 

ASMARRAY,  LASM,  OUTSRT 

DISTF,  LAUNCH 

PLAN 


Method : 

PREFLl  determines  the  distance  between  the  ASM  target  and  the  previous 
flypoint  which  was  not  an  AIM  ASM  event. 

PREFL2  calculates  the  distance  between  the  ASM  target  and  the  previous 
flypoint. 

POSTFLY  finds  the  next  flypoint,  and  calls  subroutine  LAUNCH  to  compute 
the  ASM  launch  point. 

Subroutine  FLYPOINT  is  illustrated  in  figure  106  . 
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Figure  113.  Subroutine  LOCATE 
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^ .15  Subroutine  PLAN 


I u <^E:  Subroutine  PLAN  develops  detailed  bomber  sorties. 

LWTRY  POINTS:  PLAN 


FORMAL  PARAMETERS:  None 


I COMMON  BLOCKS: 


I SUBROUTINES  CALLED; 


I 


ARTIME,  ASMARRAY,  ASMTABLE,  CONTROL,  CONTRl, 
CORCOUm,  CORRCHAR,  Cl,  C7,  C9,  CIO,  DINDATA, 
DISTC,  EVENTS,  HILO,  ICLASS,  IDP,  IFLGDPEN, 

ICO,  INDATA,  lOUT,  IRF,  ISRTNS,  ITP,  LASM, 
MASTER,  MH2,  OUTSRA,  OUTSRT,  PAYDATA,  PAYLOAD, 
PLANTYPE,  POLITE,  PPINFO,  RECOVERY,  REF,  SPASM, 
TEMPO,  VICINITY,  WPNGRPX,  WPNTYPEX 

ADJUST,  CLINDATA,  DISTF,  CLOG,  INTERP,  INPUT, 
LOCATE,  LREORDER,  ORDER,  POSTFLY,  POSTLAUN, 
POST17,  POST4,  POSTS,  PREFLl,  PREFL2,  REORDT^R, 
SLOG,  SNAPIT,  WRARRAY 


CALLED  BY: 


PLNTPLAN 


Method : 


Figure  114  illustrates  the  overall  macro  flowchart  for  subroutine  PLAN. 

To  simplify  discussion,  PLAN  is  divided  into  "blocks"  of  coding  as  noted 
in  the  macro  flowchart.  The  subroutine  description  as  well  as  detailed 
flowcharts  are  organized  around  these  blocks,  which  are: 


BLOCK  20 

24 

25 

26 
27 

30 

31 
40 
50 
60 


Determine  type  of  plan 
Initialize  plan 
Post  Launch  event 
Post  Refuel  events 

Initialize  plan  with  respect  to  GOLOW  range 

Process  precorridor  legs  and  apply  GOLOW-1 

Post  corridor  events 

Adjust  /OUTSRT/  for  ASM  events 

Apply  GOLOW-2  before  first  target 

Post  depenetration  events 


and  are  described  in  the  following. 

Block  20:  Determine  Type  of  Plan  (figure  115) 
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I# 


I 

^Circled  numbers  refer  to  start  of  coding  blocks  rather  than  to  I 

statement  numbers.  I 


Figure  114.  Subroutine  PLAN  (Macro  Flowchart) 
(Part  1 of  2) 
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Figure  11^.  (Part  2 of  2) 
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Is  This  A 
Tactical  Or  Naval 
Aircraft? 


No 


Initialize  Plan 
For 

I Corridor 


Call  SNAP IT 
(7,1)  To 
Output  Print  7 


Initialize 

Variables 


Store 

Corridor 

Information 


Increment 

Sortie 

Count 


Save  Sortie 
INDEX 


Figure  115.  Subroutine  PLAN 

Block  20:  Determine  Tjrpe  of  Plan 


SNAP  IT  ]s  called  to  output  Print  7 and  the  low  altitude  variable  G1  Is 
I set. 

block  24:  Initialize  Plan  ( f Igurc  1 1 6 1 

Tlie  plan  Initialization  at  block  24  consists  of  setting  pointers  and 
indices  for  the  appropriate  depenetration  corridor  and  writing  other 
information  into  the  final  plan.  Indices  for  the  Payload  table  and 
ASM  table  are  set  at  this  point,  as  are  parameters  which  are  dependent 
on  bomber  speed.  'iTn'se  parameters  are  associated  with  the  minimum 
length  of  time  a bomber  flies  low,  and  where  a bomber  is  to  change 
altitude  in  the  neighborhood  of  a target. 

Block  25:  Post  Launch  Event  (figure  117) 

After  initialization,  the  posting  of  events  in  the  output  arrays  of 
common  /DINDATA/  begins  with  the  posting  of  the  Launch  event.  It  is 
posted  by  location  (latitude  and  longitude)  as  well  as  by  ype  and 
"place"  index.  Table  16  lists  the  types  of  events  admissible  for 
posting,  as  well  as  their  names.  Note  that  the  GO  HIGH,  GO  LCW,  and 
DOGLEG  events  are  not  admissible  in  the  final  plan. 

Block  26:  Post  Refuel  Events  (figure  118) 

If  there  is  a Refuel  event,  it  is  posted  next.  Refueling  is  accomplished 
in  one  of  three  ways;  (1)  at  preassigned  refuel  areas  (refuel  index  SO), 
(2)  buddy  refueling  by  another  bomber  or  tanker  launched  from  the  same 
base  (refuel  index  = -1  or  -2),  or  (3)  automatically  by  PLAN  (refuel 
index  = -4  for  single  refuel,  -5  for  two  refuels).  In  the  first  case 
the  data  preparer  assigns  refuel  areas  for  both  bombers  and  tankers. 

In  buddy  refueling,  tankers  are  Ignored.  Bombers  are  refueled  by  the 
buddy  system  at  maximum  range  (a  great-circle  distance  from  the  base 
equal  to  refueled  range  minus  range)  or  just  prior  to  the  corridor 
origin,  whichever  is  sooner. 

When  a bomh  ’s  to  be  assigned  a refuel  area  by  PLNTFIJ\N  the  buddy 


refuel  pol  , is  first  computed  a distance  '-''m  the  base  on  a 

great  clri.  ween  it  and  the  corridor  entr  , a.  for  buddy  refueling. 

See  figure  'R  is  the  dlffereiu  . • en  lefuelea  - ange  and  range. 

If  there  a st  refuel  areas  ; li  are  within  LR  of  the  base 

and  within  fled  distance,  ! , of  the  point  X,  the  area  nearest 

X Is  asslgne  efuel  point.  Otherwise  the  point  X is  assigned 

and  is  added  t of  refuel  areas. 
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Figure  116.  Subroutine  PLAN 

Block  24:  Initialize  Plan 


r" 


point  Is  also  noted.  If  attrition  begins  at  a point,  this  is  noted  by 
entering  a 1,  2,  or  3 in  array  JAPTYPE,  depending  upon  whether  this  is 
the  first,  second,  or  third  section.  Similarly,  if  attrition  ends  at 
the  point,  the  number  4,  5,  or  6 is  entered.  Thus  point  1 is  labeled 
with  a 1,  and  point  3 with  a 4,  to  indicate  the  beginning  and  end  of 
the  first  attrition  section.  This  example,  of  course,  describes  an 
extreme  situation  where  attrition  occurs  in  three  separate  sections. 
Usually,  there  will  be  attrition  in  at  most  one  section.  The  program 
must  know  which  doglegs  have  attrition  in  order  to  know  where  to  apply 
the  low  altitude  range  G]^.  In  the  figure  example,  suppose  G]^  > 180 
miles,  then  112  miles  would  be  applied  against  the  first  dogleg  back 
of  the  corridor  origin,  38  miles  applied  to  the  second  dogleg.  The 
balance  of  30  miles  would  be  applied  to  the  5th  dogleg  beginnii^g  with 
point  5 and  ending  midway  between  points  5 and  6.  As  a result,  GO  LOW 
and  GO  HIGH  events  would  be  posted  as  indicated  in  the  figure.  The 
posting  of  a GO  HIGH  at  the  corridor  origin  depends  on  the  value  of  G2. 

This  section  also  sets  up  arrays  which  contain  the  event  numbers  of  all 
those  precorridor  events  which  might  possibly  call  for  the  launching 
of  a decoy.  These  arrays  are  called  LOHIMHT  and  LDMHT.  The  event 
nunber  is  stored  in  LOHIMHT  for  events  of  priority  2.  (See  subroutine 
DECOYADD  for  table  of  priorities.)  The  event  number  is  stored  in  LDMHT 
for  a launch  of  priority  3 (or,  after  the  first  such  event,  priority  5). 
For  the  priority  5 launches,  the  distance  to  be  covered  by  the  decoy  is 
accumulated  in  a corresponding  word  of  array  DELDIS. 

The  flag  JA  is  set  to  1 when  the  beginning  of  an  attrition  section  is 
encountered,  and  back  to  0 at  the  end.  IDEL  is  the  Indicator  to  be 
compared  against  JAPTYPE  in  order  to  determine  the  beginning  and  end  of 
attrition  events.  The  counter  JDO  is  advanced  each  time  an  additional 
Change  Altitude  event  is  added. 

Block  31:  Post  Corridor  Events  (figure  123) 

Gx  is  measured  out  and  the  necessary  change  altitude  events  determined. 
The  possible  Decoy  Launches  then  are  posted  by  filling  array  LMHT  with 
the  event  number  (from  array  LDMHT  or  LOHIMHT)  and  by  filling  array 
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|No 

^ Was  Event  \ 
Flagged  For  \ 
Possible  Decoy 
Launch 

(I'riorities  / 
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Post  Tyjie,  l.at  i - I 
tude.  Longitude, 
/\nd  Place  Of  * 
i vent  Being 
Processed 


Subroutine  PI,AN 

Block  31;  Post  Corridor  Events 
(Part  1 of  4) 


1 


figure  123.  (i’art  3 ot  A) 


5A6 
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Is  Hus 
Hntry  Of 
toil  I MIT 
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Call  POSTLAIIN 
For  Priority  5 
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Th  reo 
Times 


Is  This 
F.ntry  Of 
LDMIT  Filled? 
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As  Parameter 
For  Subroutine 
POSTUUN 


Figure  123.  (Part  4 of  4) 
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I.I’KUtKlIY  with  till'  assoc lateil  priority  (5  It  Iho  event  number  Is  friim 
atiav  I ’K)Oi:iTY  with  the  associated  priority  C)  if  the  event  number  Is 
Itinn  array  l.l'MU'l',  2 if  the  event  number  is  from  array  btlHlMUTl.  Kor 
the  priority  '.>  launch,  the  index  to  the  associated  distance  In  array 
in'.bhl''  Is  th  ■ sane  as  the  lixlex  to  the  event  mimher  In  array  LDMUT; 
hence,  this  Index  Is  stored  In  array  NlX'YKtl.  llie  priority  2 launch 
do.  ■ not  reipilre  a covi'iami  distance.  Whenever  thl.s  la  the  case,  a 
1 Is  stored  In  arr.iy  Nl'CYKQ.  Hie  actual  filling  of  these  arrays  Is 
done  by  subroutine  t’l)Si'I.AlIN . 


I'loik  dO;  Adjust  /^iribUlV  for  A'''!  lAents  (fuMirc  124' 

1 lie  list  of  inpiii  i-vciit  . in  the  ''Urisivl'/  .irr.i>''  is  next  exainined  tcir 
ASM  event..  1 1'  there  ire  inv  , t lie  .iini  or  1 sunch  points  for  them  .ire 
now  calcul.ited.  If  necessaiA  , the  ASM  events  are  reordered  within  the 
li;;i  ol  otlu'i  events  :u  this  time,  i'iiis  is  iu'ctiitse  A.SM  target  ev'ents 
arc  supj'lied  to  I’l.ANi'Ui'  bv  I't'S  I'AI.t't'  without  aim  point.s,  and  approxi- 
m.itelv  in  their  proper  order.  The\’  iii;i\-  .ippe.ir  later  in  the  lists  than 
tlii'N'  sliould.  but  not  earlier.  I'igiire  123  shows  .i  list  of  haiipenings 
with  asm  events,  to  illustr.ite  wh.at  is  meant.  I'he  list  iiulictites  a 
nUOl'IU'Ml’  event  at  point  followed  1>\  ASM  events  .it  j'oints  and  1, 
then  a I'UOl’i'OMH  event  at  point  .3  .iiid  .m  .ASM  event  at  I'oints  b and  . 
■'iippose  tli.it  tile  A.'iMs  vicre  to  be  launched  or  .liined  as  shown  in 
figure  125;  tli.it  is,  at  I'oints  1,  , U',  .nul  11.  Ilicn  t lie  list  el 

h.ip(H'nings  would  be  rearranged  as  sliown.  If  an  A.'AI  jn'int  fell  before 
the  origin,  the  onj’.in  would  be  useil  as  the  ,iim  point.  Vhe  aim  points 
d,  10,  .ind  11  woiilvl  be  computed  using  tlie  1 AlINtlll  subroutine. 

file  processing  for  block  -U'  is  carriid  out  in  p. irate  stej's, 

lit  1 I i inc  the  .irr.ivs  from  common  /ASM.VI<I\A>  i.  tSM  targets  arc 

I list  I'x.iminod  to  see  it'  tlie\’  aie  in  a;  th  i*  .■[  some  other 

('nor  ll\  I'Oint  such  as  .i  ilro]'  I'oiiih  'p  int  . I'ho  ■ which  .iri  ni>t  ;ire 
fl.iggi'il  by  setting  the  co  r resf'i.nd  i iii;  ..11  f irro  I!'  ^ to  I.  In  the 
ex.imi'le  in  figure  I2S,  (>oint-  ''  .iii.l  I would  in'  be  t'l.iggeil,  but  I'oints 
('  atui  7 would.  (J)  f'le  ASM  t.irgets  fl.iggcd  iii  t:.  l.i.t  stcj'  would 
.ig.iin  be  ex.imined  in  the  seeoiul  ('.iss  to  see  it  .in\'  wii.  in  lani’.e  of  a 
preiioiis  A.hM  ll\-  pi'int.  In  the  example  sliown,  I'oiiit  ^ w.m  ' 1 be  in 
range  of  A'-'l  t in  ti.  The  aim  point  (No.  10)  I'or  ASM  target  ('  is 
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Figure  125.  Illustration  of  ASM  Event  Adjustment 


coiiipiit  (.'d  at  this  sto]'.  I ho  hoiiibor's  path  is  now  liilly  ilot  orini  nod . 

I ' ) Sort  indioo:-  ait  iu>w  j;onoratod  tor  all  o\onts.  ior  all  11)'  points, 
the  iioint  niiiiihor  is  t akon  as  the  sort  in  lex.  For  all  otlior  points, 
li-o.,all  ASM  pt'ints  whioh  are  not  tl\  |ioiMts;  in  this  oxamplo,  points 
S.  4,  and  tlio  sort  index  is  a nunihor  whoso  inteyor  part  is  tho 
earliest  point  just  out  of  rauKO , and  whose  fractional  part  is  the 
tiistaiioe  to  this  point.  After  tho  sort  indices  are  generated,  the  list 
is  appropriately  rearranjtod  usinji  tho  ORDhR  and  Rl.ORDl.R  functions. 

141  Hie  aim  point  ',  for  tho  rest  of  tho  ASMs  are  calculated. 

Suhroutino  I- 1 VPOl  .Vf , •.'itch  has  the  entries  PRKFLl  , PRKFL2,  ,md 
PtiSTlLY,  is  logically  an  integral  iiart  of  this  coding  block.  Subroutine 
l.AUNill  is  called  only  bv  POSTl'LV. 

If  the  last  event  is  an  ASM  event,  the  dopenet rat  ion  corridor  is  ro- 
se loot  ed . 

I'he  locations  of  appropriate  I'h.inge  Altitude  ev'onts  associ  .ited  with  the 
ranges  tla  and  (i't  ore  now  calculated  by  subroutine  Al'.HISl  . .i  the 
target  area  w.is  found  to  be  degenerate,  blocks  SO  and  oO  are  ski]iped. 

iUoek  50:  AppW  c:omW-2  Before  First  Target  (figure  126) 

TUock  50  posts  all  events  In  tho  target  area.  Including  ASM  launches 
from  the  corridor  origin,  and  altitude  changes.  All  events  except 
ASM  launches  arc  entered  in  the  detailed  History  table  as  one-line 
events.  For  ASM  launches  two  lines  are  required,  the  first  for  infor- 
mation pertaining  to  the  launch  and  the  second  for  information  pertain- 
ing to  the  target.  As  the  event  list  is  processed,  all  possible  Decoy 
Paunch  situations  are  flagged  by  storing  the  appropriate  information 
pertaining  to  the  launch  and  the  second  for  information  pertaining 
to  the  target.  As  the  event  list  is  processed,  all  possible  Decoy 
launch  situations  are  flagged  by  storing  the  appropriate  information  in 
.ur.ays  IMtIT,  PPRIDRITY,  and  NDCYRQ  (see  block  30).  It  the  value  of 
.ittilbiite  PAYAl.T  is  IlIOH,  this  block  checks  if  a second  ..egment  of  low- 
altitude  flight  is  planned  after  the  last  target.  If  so,  an  altitude 
change  event  is  placed  after  the  last  target. 

Piocessiiu’  is  terminated  with  the  occ  'ci  eiico  of  IP.  ir  ('vents  DFl’EN, 
l.AND,  or  DIVI'.MISI  . For  DFI’F.N,  a norm,)  1 is  mad'  to  Ploek  (i0 

described  in  the  next  section.  for  PAN:',  pvt  a ( ' I 'i;;!  event  if  cur- 
rently at  li'w  altitude  and  determine  an  aboi  t point  on  tin  line  con- 
iH'cting  the  last  target  and  tho  depenet  rat  ion  poji  f .at  which  the 
bomber's  range  tfuel)  Is  exhausted.  11  the  bomber  w.  , M nerm.allv 
use  .tii  available  ranju’  In  reaching  its  last  .assigtu'd  taip.  i.  a hvpo- 
thclf  ol  ahorl  point  is  established  5 minutes'  1 light  distance 
hey.'ii.l  111-  I arpi  r . ir  DIVFMIST,,  an  abort  event  Is  posted  1 mmod  i t e 1 y 
at  'o  l.i'(|  i.;ige 
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Figure  126.  Subroutine  PLAN 

Block  50:  Apply  GOLCW2  Before  First  Target 
(Part  1 of  5) 
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Block  oO:  Post  Depenetratlon  Events  (figure  127) 


This  block  of  coding  cotnpleCes  the  processing  for  a normal  sortie, 
processing  from  the  last  target  to  the  recovery  point  or  base.  It 
computes  the  most  distant  recovery  base  that  has  available  space, 
associated  with  this  depenetratlon  point,  that  the  bomber  can  reach. 
The  information  on  this  base  and  the  depenetration  corridor  index  are 
recorded  in  the  depenetratlon  event.  Counts  are  updated  and  saved 
within  arrays  N/.MCAP  and  NUSED  for  eventual  sunmarlzing  prints.  In 
addition,  the  time  of  fligjit  to  each  of  the  possible  recovery  bases 
is  computed  and  stored.  These  calculations  follow  the  processing  of 
the  depenetratlon  leg  events. 


4.6.2.16  Subroutine  PLANTANK 
F'URPOSl: 


HNIRY  roiNTS; 


FORMAI.  PARAMlTbR' 


COMMON  BI/)CKS: 


SUBROirriNKS  CALLED: 


To  process  the  tanker  records  originally  con- 
tained on  the  BASFILE,  and  to  generate  tanker 
plans  which  correspond  to  them  for  inclusion 
on  PLANTAPE. 

PLANTANK 

None 

ARTIME,  CONTROL,  C7,  C8,  C9,  CIO,  DINDATA,  DINDT2, 
EVENTS,  FILES,  ICLASS,  INDATA,  lOUTOLD,  IRF,  IRFTK 
ITP,  KEYLENO,  KEYS,  MASTER,  MYIDENT,  OUTSRT, 
PLANTYPE,  REF,  SNAPCW,  TANKER,  TWORD,  WAROUT 

CLINDATA,  DISTF,  IPUT,  ORDER,  SLOG,  SNAPCON, 

SNAP IT,  VAM,  WRWORD,  WRARRAY 


CALLED  BY: 


PLNTPLAN 


Method : 

ihe  input  data  for  the  generation  of  tanker  plans  are  contained  on  the 
BASFILE  in  the  form  of  records  whose  contents  are  listed  in  table  38. 

All  of  these  records  are  read  from  the  BASFILE  early  in  the  program  by 
subroutine  INITANK  and  stored  in  common /C7/  for  use  by  PLNTPLAN  and  sub- 
routine PLANTANK.  The  number  NTANKBAS  of  these  input  records  is  supplied 
to  PLNTPLAN  through  common  /MASTER/.  A record  is  supplied  for  each  tanker 
base.  A separate  plan  is  generated  for  each  tanker  on  the  base;  i.e., 

Nt^  plans  are  generated  for  each  input  record,  where  N^  is  the  number  of 
tankers  on  the  given  base. 

liach  tanker  plan  generated  consists  of  seven  events:  ll)  Launch  event, 

(2)  Enter  Refuel  Area,  (3)  Leave  Refuel  Area,  with  (4),  (S'),  (6),  and 
I?)  as  alternate  Recovery  events,  as  shown  in  table  39. 

Tanker  plans  are  generated  in  the  following  operation.  As  each  input 

record  is  read  in,  Nt  plans  are  generated;  Ng  p' for  alert  tankers, 

and  then  N^  - Na  for  nonalert  tankers. 

Each  tanker  base  is  first  inspected  to  dctiuniine  .F  its  tailors  are  to 
be  automatically  allocated.  i'hen,  aftor  all  bases  nave  been  inspected, 
PLANTANK  fills  common  block /C9/  with  required  .lata  .ind  cails  subroutine 
VAM  to  allocate  those  tankers  to  specific  refuel  ,reas  in  such  a way  as  to 
minimize  the  total  miles  flown  by  them  while  serviciUj,  ill  iiorabcr  requests 

When  VAM  has  returned  its  solution,  PI.ANTANK  allocates  any  ox’-a  tankers 
in  I iho:  proceeds  ■ calculate  the  time  schedules  for  individual  flights. 
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In  the  second-strike  case,  all  tankers  are  sent  to  their  assigned  refuel 
areas  at  the  earliest  possible  moment,  considering  delays  before  launch 
due  to  alert  or  nonalert  status  as  well  as  the  travel  time  required  be- 
tween base  and  refuel  area. 

In  the  first-strike  case,  however,  they  are  scheduled  as  follows.  Bombers 
have  been  scheduled  by  PLNTPLAN  to  arrive  at  specific  refuel  areas 
over  a period  of  time  (which  may  be  several  hours)  so  as  to  satisfy  the 
requirements  associated  with  the  CORBOMB  input  parameter.  These  bonder 
refuels  have  been  posted  in  the  matrix  lARVLS/ARVLS  (1,J)  where  J indicates 
data  for  the  Jth  refuel  to  be  scheduled  by  PLNTPLAN,  I*1  contains  the 
scheduled  time  of  the  Jth  refuel,  Ia2  contains  the  assigned  refuel  area. 

As  each  tanker  is  processed,  the  lARVLS  array  is  searched  for  the  first 
unserviced  bomber  refuel  which  is  to  occur  at  the  refuel  area  to  which  the 
tanker  has  been  assigned  by  subroutine  VAM.  When  found,  the  bomber  time 
of  arrival  is  retrieved,  the  tanker  is  scheduled  to  launch  so  as  to  arrive 
at  the  refuel  area  .1  hour  prior  to  the  bomber,  and  the  lARVLS  entry  is 
set  to  zero  to  indicate  that  the  bomber  has  been  serviced.  If  the  search 
finds  no  unserviced  bomber  at  the  refuel  area,  the  tanker  is  extra,  thus 
PLANTANK  schedules  it  to  arrive  .1  hour  before  the  earliest  bomber  at  the 
area  (stored  in  array  ARTIME) . 

After  scheduling  has  beem  completed,  distances  from  refuel  area  to  recovery 
bases  are  calculated  for  each  tanker,  the  recovery  events  are  ordered  by 
I ascending  distance,  and  PLANTAPE,  and  printed  reports  are  output  with 
tanker  plans  according  to  user  options. 

Figure  128  illustrates  subroutine  PLANTANK. 
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Table  38.  Tanker  Input  Record 


1 TTM 

Tort  an 

Name 

Symbol ic 
Name 

lanker  base  index 

INllEXTK 

Rase  latitu-'e 

TKLAT 

Base  longitude 

TKI.ONG 

Refuel  area 

IREFTK 

Number  of  tankers 

per  squadron 

NPSQNTK 

N 

t 

Number  of  tankers 

on  alert  per  squadron 

NALRTK 

N 

a 

Tanker  speed 

SPEEDTK 

V 

t 

Alert  dela> 

DLYALTK 

D 

a 

Nonalert  delay 

DLYALTk 

D 

n 

lotal  t ’ ne  on  station 

TTOS 

Tanker  t'po 

ITYPETK 

Tanker  range 

TANKRNGE 

Table  39.  Tanker  Plan 


Event  lype 

Time 

Place 

launch 

be  1 ay 

INDEXTK 

Enter  Refuel 

Area  DIST/V^ 

IREFTK  as  set  by 

PbVNTANK 

l.oave  Refuel 

Area  TTOS 

IkEFTK  as  set  by 

PLAN TANK 

Recover 

1 

P!  |/V 

f''  RCBLONG) 

1 

Reco'ver 

2 

PI  /V 
: t 

( - I \i  , Ki 

2 

Recover 

3 

PI  /V 
* t 

R'  RlM.  R'.'PIONG) 

3 

Recover 

4 

PI  ; 

4 t 

(RCHl A. , RCBLONG) 

4 

Where  DIST  = 

Pistance  from  tanker  base  to 

rcfiel  area 

H 

X 

Pistanc*'  ‘'rom  refuel  area  to 

recovorv 

\ 

bb4 


Figure  128.  (Pert  3 of  4) 


I 


567 


r 


4.6.2.17  Subroutine 

PLANTMIS 

PURPOSE: 

To  control  the  processing  of  all  missile  plans 
input  from  the  STRKFILE. 

ENTRY  POINTS: 

PLANTMIS 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

BLOCK,  CONTROL,  CONTRl,  FILES,  ITP,  KEYLENG,  KEYM, 
MISCT,  MRVFLG,  NAVAL,  OUTSRA,  OUTSRT,  PAYLOAD, 
SNAPON,  TIMELINE,  TWORD,  WPNGRPX,  DELTA,  WAROUT, 
WPNTYPEX,  MAX 

SUBROUTINES  CALLED: 

ABORT,  CHGCHK,  GLOG,  IGET,  IPUT,  KEYMAKE,  RDARRAY, 
SNAPIT,  TIMELNCH,  TIMEME,  WRARRAY,  V/RWORD 

CALLED  BY: 

PLNTPLAN 

Method: 

This  subroutine  reads  and  processes  missile  plans  from  STRKFILE  or 
STRKCHNG.  It  is  called  whenever  PUITPLAN  reads  a missile  record. 


The  STRKFILE  or  STRKCHNG  record  is  first  moved  from  /OUTSRT/  to  /BLOCK/. 
To  facilitate  processing,  most  of  the  data  is  then  transferred  to  the 
TDATA  array  in  common  /TIMELINE/.  Table  40  shows  the  variable  placement 
in  arrays  BLOCK  and  TDATA.  


I The  remainder  of  PLANTMIS  merely  outputs  missile  plans  in  the  correct 
I format  onto  the  PLANTAPE.  If  all  events  have  been  deleted  from  a record 
that  record  is  not  output  on  the  PLANTAPE.  11118  situation  is  identified 
idien  target  index  is  zero. 

When  PLANmiS  has  completed  processing  a missile  record,  it  reads  the  next 
plan  from  the  STRKFIli;  and  calls  CHGCHK  to  read  the  STRKCHNG.  If  the 
information  read  is  another  missile  record,  PLANTMIS  processes  it  without 
returning  to  PLNTPLAN;  otherwise  it  returns. 
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Table  40.  Arrays  TDATA/ITDATA  and  BLOCK/LOCK 
Used  in  PLANTMIS  and  TIMELNCH 


TDATA/ITDATA 

INDEX 

ATTRIBUTE 

BLOCK/ LOCK 
INDEX 

— 

STRKFILE  or  EVENTAPE  Record  words  1-18 

1-18 

1-18 

Missile  indices 

19-36 

i 

19-36 

Site  indices  (from  data  base) 

37-54 

i 

i 

37-54 

Target  indices  (from  data  base) 

55-72 

I 

55-72 

Offset  latitude  (DLAT) 

73-90 

i 

73-90 

Offset  longitude  (DLONG) 

91-108 

91-108 

Flight  Time  (hours) 

109-126 

t 

109-126 

Weapon  site  latitude 

127-144 

127-144 

Weapon  site  longitude 

145-162 

145-162 

Target  latitude 

163-180 

163-180 

Target  longitude 

181-198 

i 

181-198 

Target  designator 

199-216 

.1 

1 

199-216 

Target  task  and  owner 

217-234 

1- 

217-234 

Target  country 

235-252 

235-252 

Target  flag 

253-270 

j 

\ 
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PLANOl,  Che  first  overly  of  FLANOUT,  has  Che  option  of  adding  missile 
records  Co  Che  STRKCHNG  file  whereby  creating  more  records  Chan  on  Che 
STRKFILE.  Parameter  ICHANGE  Is  set  negative  when  these  STRKCHNG  records 
are  to  be  processed. 

Local  array  IHOB  is  used  to  store  the  weapon  height  of  burst  information. 
Logical  array  MMHOB  contains  the  input  HOB  infonsatlon  from  Che  LOCK  array. 
This  Information  is  used  Co  set  the  HOB  code  for  each  missile  strike. 

All  processing  of  missile  plans  is  done  in  subroutine  PLANTMIS,  TIMELNCH. 
and  LNCHDATA. 

Figure  129  illustrates  subroutine  PLANTMIS. 
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Figure  129.  (Part  2 of  5) 
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THE  CONTENTS  OP  THIS  PAGE  INTENTIONALLY  DELETED 


4.6.2.18  Subroutine  POST 


PURPOSE:  To  enter  the  event  type,  event  location,  and 

place  code  to  the  arrays  in  common  /DINDATA/. 

ENTRY  POINTS:  POST 

j ' P0ST4  (Refuel  event) 

POSTS  (Local  Attrition  event) 

P0ST15  (formerly.  Launch  Decoy  event;  now 
inactive) 

P0ST17  (Change  Altitude  event) 

FORMAL  PARAMETERS:  A = Latitude  of  event 

B = Longitude  of  event 
I = Place  code  for  event 

COI^tON  BLOCKS;  DINDATA,  EVENTS,  FILES 

SUBROUTINES  CALLED:  None 

I GALLED  BY:  PLAN 

Method: 

ITie  event  type  is  determined  by  the  entry  point  used.  Subroutine  POST 
increments  the  /DINDATA/  line  counter  (MHT)  by  1,  then  enters  the  event 
type  code  in  JTP  (MHT),  the  latitude  of  the  event  in  HLA  (MHT),  the 
longitude  in  HLO  (MHT)  and  the  place  index  in  KPL  (MHT) . 

Subroutine  POST  is  illustrated  in  figure  130. 
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Figure  130.  Subroutine  POST 
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4,6.2.19  Subroutine  POSTLAUN 


PliRPOSE;  To  add  information  pertaining  to  possible  decoy 

~ ~ launches  to  tlie  arrays  examined  by  subroutine 

HECOYAPD . 

iViKY  POINTS:  POSTLAUN 

KOR.MAL  PARAMHTPRS:  LPR , UiT,  LOST 

rOfriON  Bl.CX  KS:  Cl 

SilBfUMrriNPS  CAl.LLP:  None 

I TALLFP  PY:  plan 

Method ; 

I’USTLAIIN  increments  the  counter  for  the  number  of  possible  decoy  launches 
(NPSLN)  and  stores  the  information  sent  through  the  calling  parameters 
Ml  the  appropriate  arrays,  indexed  by  NPSLN.  Parameter  LPR  contains 
the  priority  of  the  possible  launch;  parameter  LllT  contains  the  number 
of  the  event  following  the  possible  launch;  and  parameter  LOST  contains 
the  index  to  the  word  in  PLLDIS  in  which  the  decoy  coverage  distance  is 
stored,  f’-'-aneter  LOST  will  be  meaningful  only  for  launches  of  priority 
S,  7,  or  8. 

Subroutine  POSTLAUN  is  illustrated  in  figure  131. 
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4.b.2.22  Subroutine  SNAP IT 


SNAPIT  is  callf(.i  whenever  a print  is  to  be 
issued.  It  determines  whetlier  the  print  is 
active  and,  if  so,  calls  .SNAPOUT  to  issue  the 
print . 

SNAPIT 

10  = Print  reipiest  number 
NO  = Print  option  code 

SNAPON,  WAROUT 


SNAPOUT,  TIMEMT. 


ADJUST,  LAUNCH,  PIAN,  PLANTANK,  PLArr>»IS, 

PT,NTPIJiN 

Met  hod  : 

Iv'hiMi  the  user's  print  option  cards  ,irc  read  at  the  beginning  of  PI.NiTIJVN 
execution,  tlie  encountering  of  each  unique  print  request  number  (numbered 
I through  151  causes  the  corresponding  element  of  tlie  array  NAP  in  block 
SNAPON  to  be  set  to  5.  Otlierwise,  the  element  will  i-ontain  1. 

During  processing  of  PLNTPl.AN,  subroutine  SNAPIT  is  called  and  given  the 
anplicable  print  number  along  with  a print  option  code  whenever  a print 

is  to  be  issued.  If  the  NAP  flag  for  the  requested  print  is  not  equal  i 

to  SNAPIT  simply  returns.  Otheiav iso,  the  print  option  code  is  checked  : 

for  the  value  1,  SNAPOUT  is  called  with  both  10  and  NO  parameters,  and 
.S'll’ii’  returns. 

A I'rint  oiition  code  of  I causes  SNAl'lT  to  print  the  message  "PRINT 
'P'MPl.R  and  if  it  is  print  -1.  the  message  BOUNDARY  SNAP  before 
■ illing  subroutine  SNAPOUT.  This  v'pt ion  codi  . regardless  of  its  value, 

IS  p.isscil  on  to  SNAPOin  where  it  h,is  •;  i rni  f i c.ince  ''  r prints  4,  11,  and 


I’lIRPOSr.: 

ENTRY  POINTS: 
hORM.M  PAR.-U’l'TTRS: 

I'tiMMON  BUXiKS: 
SUBROUTINES  CALLED: 
I CALI, ED  BY: 


4.6.2.23  Subroutine  SNAPOUT 

PlIRPOSb:  To  perform  all  optional  printing  within 

PLNTPLAN. 

LNTRY  POINIS:  SNAPOUT 

I'ORMAL  PARAMt-.TF.RS:  ILK  = Print  request  number 

MLK  = Print  option  code 

I COMMON  BLOCKS:  ASMARRAY,  ASMTABLE,  BLOCK,  C9,  CHANGES,  CONTROL, 

CONTRl,  CORCOUNT,  CORRCHAR,  DINDATA,  DINDT2, 

I DISTC,  FILES,  HILO,  IDP,  INDATA,  TOUT,  IRF, 

IRFTK,  ISRTNS,  ITP,  KEYLENG,  LASM,  LAUNSNAP, 

MASTER,  MH,  MH2,  OUTSRT,  OUTSRA,  PAYLOAD,  PLANTAPE, 
SPASM,  TANKER,  WPNGRPX,  WPNTYPEX,  WAROUT,  PAYDATA, 
KEYM 

SUBROUTINES  CALLFU:  DISTF,  GLOG,  IGET,  LATCV,  LOCATE,  Lo.>.CV,  TIMEME 

CAI.LED  BY:  SNAPIT 

Method : 

The  Users  Manual  describes  the  optional  prints  available  in  PLNTPLAN 
(numbered  1 through  15) , and  the  data  card  format  to  be  used  when 
requesting  them.  The  cards  are  read  initially  by  subroutine  SNAPCON. 

Then  during  PLNTPLAN  processing,  subroutine  SNAPCON  is  entered  as  each 
new  STRKFILb  bomber  record  is  read  in  to  be  processed.  SNAPCON  scans 
the  list  of  requests  and  determines,  by  matching  the  group,  corridor, 
and  sortie  numbers  of  the  incoming  record  against  the  request  list, 
which  prints  are  to  be  activated  and  which  are  to  be  inactive  during 
the  processing  of  tlic  record.  It  communicates  this  information  to  sub- 


rout i ne 

SNAPIT  via  common  block 

/SNAPON/. 

This  contains 

d 15-word 

array  NAP,  one  cell  for  each  print  request 
active  requests;  otherwise  it  is  set  to  1. 
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set  to  3 for 
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Table  43.  Sortie  Event  Plotting  Symbols 


EVENT  TYPE 

EVENT 

ACRONYM 

SYMBOL 

2 

Launch  bomber 

LAUNB 

A 

4 

Re fuel 

LEREFUEL 

X 

8 

Drop  bomb 

LOCLATTR 

1 1 (number 
by  sequen- 
tial code) 

14 

Launch  ASM 

LAUNASM 

X (and 
broken  line 
to  target) 

15 

Launch  decoy 

LAUNDCOY 

D 

16 

Recovery 

LANDHO 

13 

Abort 

LABOR! 

18 

Go  to  high  altitude 

IGOHI 

HI 

19 

Go  to  low  altitude 

IGOLOW 

LO 

20 

Dogleg 

LEGDOG 

10 

Change  time 

ITIME 

6.4  Ccacept  of  Operation 


Program  PLOTIT  is  designed  to  produce  ots  oi  all  or  any  specified 
sortied  contained  in  the  PTANTAPE  files.  The  user  may  choose  his 
1 -tting  op'  Ions  via  punched  card  input.  When  PlXiTIl  starts  exe- 
cuting, it  reads  In  the  plot  label,  plot  size  and  number  of  cases  to 
plot.  t?or  each  case  -.jhich  Is  to  be  plotted  the  necessary  control 
parameters  are  read  in,  such  as  Blue  or  Red  side,  plot  origin,  num- 
ber of  graphs  per  plot,  number  of  sorties  to  be  plotted,  etc.  For 
each  g-aph  the  projection  parameters  and  desired  ticmarks  are  read 
in.  As  these  user-^-p^cified  parameters  are  input,  they  are  printed 
on-line.  Then  the  map  type  Indicator  and  map  projection  parameters 
are  input.  Subroutine  PIECEIT  is  called  to  initialize  the  plot  pen, 
and  subroutine  PR0JCT3  to  compute  the  projection  variables  necessary 
for  the  conversion  of  latitudes  and  longitudes  to  Inches  and  to  con- 
A’ert  the  map  corner  coordinates.  Then  the  ticmarks  are  set  up  in  the 
TTCX  and  TICY  arrays  and  checked  by  subroutine  CHKTIK  to  determine  If 
they  fall  within  the  margins  of  the  graph. 

If  plotting  of  specific  sorties  rather  than  sM  sorties  In  the  file 
IS  indicated,  the  parameters  identifying  the  desired  sorties  are  read. 

Sorties  do  not  have  to  be  plotted  in  the  order  they  appear  on  the 
PTANTAPE,  as  an  indicator  may  be  set  to  rewind  the  tape  and  search 
for  the  desired  sortie.  The  plot  and  graph  numbers  are  printed  and 
the  PLANTAPE  is  positioned  to  input  the  data  for  the  specified  sortie. 
Subroutine  SUBREAD  is  called  to  save  the  sortie  parameters  as  they  are 
Input  for  later  use  by  the  plotting  routine.  Wien  all  sortie  records 
for  a plot  have  been  read,  subroutine  SUBPl.OT  is  called  to  perform  the 
actual  plotting  of  the  data.  Thl.s  is  ’-epoated  foe  all  sorties  which 
are  to  be  plotted. 

A description  of  the  common  blocks  used  by  program  Pl^IT  is  given  i.’. 
ible  44.  The  flow  o'"  the  program  is  ll’u'^trated  ! .■.  figure  ’ 6D 


Table  44.  Program  PLOTIT  Common  Blocks  (Part  1 of  4) 


BLOCK 

VARIABLE 

OR  ARRAY 

DESCRIPTION 

EVENTS 

LAUNM 

Launch  missile  code 

LAUNB 

Bomber  launch  code 

LEREFUEL 

Refuel  code 

LOCLATTR 

Local  attrition  or  drop  bomb  event 
code 

LAUNASM 

Launch  ASM  event  code 

LAUNDCOY 

Launch  decoy  event  code 

LANDHO 

Recovery  event  code 

LOHI 

Change  altitude  event  code 

MISSATTR 

Missile  attrition  event  code 

LEGDOG 

Dogleg  event  code 

LABOR! 

Abort  event  code 

LENTEREF 

Enter  refuel  area  event  code 

LEAVEREF 

Leave  refuel  area  event  code 

IGOHI 

Go  to  high-altitude  event  code 

IGOLOW 

Go  to  low-altitude  event  code 

ITIME 

Change  time  event  code 

KSMTGT 

ASM  flight-time  indicator 

INMAP 

INMAP 

Indicator  If  MAPEDGE  been 

executed 

Xl.Bl 

PL't  point  number 

I.MBRT 

Kl 

la-'hert  pro  lection  parameter 
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1 

! VARTAIil.F. 

{ OCK  OR  ARRAY 

I PTMTAPE  (cont.)  JTP 

: HT.A 

in.o 

' TWH 

1 CMT 

! MHLOW 

I MHHI 

I MY GROUP 

< MYCORR 

lOUTSRT 
LTOT 
LPLAN 

PLTARRYS  ILOW 

SUBHLA 
SUBHl.O 
SUBJTP 
PITRKPT. 


TWA PUT 
• Ml 


DESCRIPTION 

Array  of  sortie  event  types 
Array  of  sortie  event  latitudes 
Array  of  sortit.  event  longitudes 
Ar'ay  of  warhead  type  indices 
Array  of  cumulative  time  to  event 
Ixjwer  plot  markers  for  sortie 
Upper  plot  markers  for  sortie 
Group  nijmber 

Penetration  corridor  nuinber 
Bomber  sortie  number 
Total  number  of  bomber  events 
Number  of  planned  bomber  events 

Current  index  into  arrays  where 
information  is  saved 

Array  to  save  event  latitudes 

Array  to  save  event  longitudes 

Array  to  save  event  tvpes 

Array  to  save  base,  zone,  target 

Indict  s or  nurr  ' <- f m .o 
’ inchi-i 
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